home *** CD-ROM | disk | FTP | other *** search
Emacs Compiled Lisp | 1994-08-06 | 22.1 KB |
open in:
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
Confidence | Program | Detection | Match Type | Support
|
---|
1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
100%
| file
| Emacs/XEmacs v19 byte-compiled Lisp data
| default
| |
99%
| file
| data
| default
| |
100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 72 6d 73 40 6d 6f 6c |piled by| rms@mol|
|00000020| 65 2e 67 6e 75 2e 61 69 | 2e 6d 69 74 2e 65 64 75 |e.gnu.ai|.mit.edu|
|00000030| 20 6f 6e 20 53 61 74 20 | 41 75 67 20 20 36 20 31 | on Sat |Aug 6 1|
|00000040| 37 3a 32 35 3a 32 30 20 | 31 39 39 34 0a 3b 3b 3b |7:25:20 |1994.;;;|
|00000050| 20 66 72 6f 6d 20 66 69 | 6c 65 20 2f 68 6f 6d 65 | from fi|le /home|
|00000060| 2f 66 73 66 2f 72 6d 73 | 2f 65 31 39 2f 6c 69 73 |/fsf/rms|/e19/lis|
|00000070| 70 2f 63 2d 6d 6f 64 65 | 2e 65 6c 0a 3b 3b 3b 20 |p/c-mode|.el.;;; |
|00000080| 65 6d 61 63 73 20 76 65 | 72 73 69 6f 6e 20 31 39 |emacs ve|rsion 19|
|00000090| 2e 32 35 2e 39 32 2e 33 | 2e 0a 3b 3b 3b 20 62 79 |.25.92.3|..;;; by|
|000000a0| 74 65 63 6f 6d 70 20 76 | 65 72 73 69 6f 6e 20 46 |tecomp v|ersion F|
|000000b0| 53 46 20 32 2e 31 30 0a | 3b 3b 3b 20 6f 70 74 69 |SF 2.10.|;;; opti|
|000000c0| 6d 69 7a 61 74 69 6f 6e | 20 69 73 20 6f 6e 2e 0a |mization| is on..|
|000000d0| 3b 3b 3b 20 74 68 69 73 | 20 66 69 6c 65 20 75 73 |;;; this| file us|
|000000e0| 65 73 20 6f 70 63 6f 64 | 65 73 20 77 68 69 63 68 |es opcod|es which|
|000000f0| 20 64 6f 20 6e 6f 74 20 | 65 78 69 73 74 20 69 6e | do not |exist in|
|00000100| 20 45 6d 61 63 73 20 31 | 38 2e 0a 0a 28 69 66 20 | Emacs 1|8...(if |
|00000110| 28 61 6e 64 20 28 62 6f | 75 6e 64 70 20 27 65 6d |(and (bo|undp 'em|
|00000120| 61 63 73 2d 76 65 72 73 | 69 6f 6e 29 0a 09 20 28 |acs-vers|ion).. (|
|00000130| 6f 72 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |or (and |(boundp |
|00000140| 27 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 |'epoch::|version)|
|00000150| 20 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 | epoch::|version)|
|00000160| 0a 09 20 20 20 20 20 28 | 73 74 72 69 6e 67 2d 6c |.. (|string-l|
|00000170| 65 73 73 70 20 65 6d 61 | 63 73 2d 76 65 72 73 69 |essp ema|cs-versi|
|00000180| 6f 6e 20 22 31 39 22 29 | 29 29 0a 20 20 20 20 28 |on "19")|)). (|
|00000190| 65 72 72 6f 72 20 22 60 | 2f 68 6f 6d 65 2f 66 73 |error "`|/home/fs|
|000001a0| 66 2f 72 6d 73 2f 65 31 | 39 2f 6c 69 73 70 2f 63 |f/rms/e1|9/lisp/c|
|000001b0| 2d 6d 6f 64 65 2e 65 6c | 27 20 77 61 73 20 63 6f |-mode.el|' was co|
|000001c0| 6d 70 69 6c 65 64 20 66 | 6f 72 20 45 6d 61 63 73 |mpiled f|or Emacs|
|000001d0| 20 31 39 22 29 29 0a 0a | 28 64 65 66 76 61 72 20 | 19"))..|(defvar |
|000001e0| 63 2d 6d 6f 64 65 2d 61 | 62 62 72 65 76 2d 74 61 |c-mode-a|bbrev-ta|
|000001f0| 62 6c 65 20 6e 69 6c 20 | 22 5c 0a 41 62 62 72 65 |ble nil |"\.Abbre|
|00000200| 76 20 74 61 62 6c 65 20 | 69 6e 20 75 73 65 20 69 |v table |in use i|
|00000210| 6e 20 43 20 6d 6f 64 65 | 2e 22 29 0a 28 64 65 66 |n C mode|.").(def|
|00000220| 69 6e 65 2d 61 62 62 72 | 65 76 2d 74 61 62 6c 65 |ine-abbr|ev-table|
|00000230| 20 28 71 75 6f 74 65 20 | 63 2d 6d 6f 64 65 2d 61 | (quote |c-mode-a|
|00000240| 62 62 72 65 76 2d 74 61 | 62 6c 65 29 20 6e 69 6c |bbrev-ta|ble) nil|
|00000250| 29 0a 28 64 65 66 76 61 | 72 20 63 2d 6d 6f 64 65 |).(defva|r c-mode|
|00000260| 2d 6d 61 70 20 28 6d 61 | 6b 65 2d 73 70 61 72 73 |-map (ma|ke-spars|
|00000270| 65 2d 6b 65 79 6d 61 70 | 29 20 22 5c 0a 4b 65 79 |e-keymap|) "\.Key|
|00000280| 6d 61 70 20 75 73 65 64 | 20 69 6e 20 43 20 6d 6f |map used| in C mo|
|00000290| 64 65 2e 22 29 0a 28 62 | 79 74 65 2d 63 6f 64 65 |de.").(b|yte-code|
|000002a0| 20 22 c0 09 c2 c3 23 88 | c0 09 c4 c3 23 88 c0 09 | "....#.|....#...|
|000002b0| c5 c6 23 88 c0 09 c7 c8 | 23 88 c0 09 c9 ca 23 88 |..#.....|#.....#.|
|000002c0| c0 09 cb cc 23 88 c0 09 | cd ce 23 88 c0 09 cf d0 |....#...|..#.....|
|000002d0| 23 88 c0 09 d1 d2 23 88 | c0 09 d3 d4 23 88 c0 09 |#.....#.|....#...|
|000002e0| d5 d6 23 88 c0 09 d7 d8 | 23 88 c0 09 d9 da 23 88 |..#.....|#.....#.|
|000002f0| c0 09 db dc 23 88 c0 09 | dd de 23 88 c0 09 df e0 |....#...|..#.....|
|00000300| 20 23 88 c0 09 e1 e2 e0 | e2 21 42 23 88 c0 09 e3 | #......|.!B#....|
|00000310| e4 23 88 c0 09 e5 e6 23 | 88 c0 09 e7 e8 23 88 c0 |.#.....#|.....#..|
|00000320| 09 e9 ea 23 88 c0 09 eb | ec 23 88 c0 09 ed ee 23 |...#....|.#.....#|
|00000330| 88 c0 09 ef f0 23 88 c0 | 09 f1 f2 23 88 c0 09 f3 |.....#..|...#....|
|00000340| f4 23 88 c0 09 f5 f6 23 | 88 c0 09 f7 f8 23 87 22 |.#.....#|.....#."|
|00000350| 20 5b 64 65 66 69 6e 65 | 2d 6b 65 79 20 63 2d 6d | [define|-key c-m|
|00000360| 6f 64 65 2d 6d 61 70 20 | 22 7b 22 20 65 6c 65 63 |ode-map |"{" elec|
|00000370| 74 72 69 63 2d 63 2d 62 | 72 61 63 65 20 22 7d 22 |tric-c-b|race "}"|
|00000380| 20 22 3b 22 20 65 6c 65 | 63 74 72 69 63 2d 63 2d | ";" ele|ctric-c-|
|00000390| 73 65 6d 69 20 22 23 22 | 20 65 6c 65 63 74 72 69 |semi "#"| electri|
|000003a0| 63 2d 63 2d 73 68 61 72 | 70 2d 73 69 67 6e 20 22 |c-c-shar|p-sign "|
|000003b0| 3a 22 20 65 6c 65 63 74 | 72 69 63 2d 63 2d 74 65 |:" elect|ric-c-te|
|000003c0| 72 6d 69 6e 61 74 6f 72 | 20 22 1b 08 22 20 6d 61 |rminator| ".." ma|
|000003d0| 72 6b 2d 63 2d 66 75 6e | 63 74 69 6f 6e 20 22 1b |rk-c-fun|ction ".|
|000003e0| 11 22 20 69 6e 64 65 6e | 74 2d 63 2d 65 78 70 20 |." inden|t-c-exp |
|000003f0| 22 1b 61 22 20 63 2d 62 | 65 67 69 6e 6e 69 6e 67 |".a" c-b|eginning|
|00000400| 2d 6f 66 2d 73 74 61 74 | 65 6d 65 6e 74 20 22 1b |-of-stat|ement ".|
|00000410| 65 22 20 63 2d 65 6e 64 | 2d 6f 66 2d 73 74 61 74 |e" c-end|-of-stat|
|00000420| 65 6d 65 6e 74 20 22 1b | 71 22 20 63 2d 66 69 6c |ement ".|q" c-fil|
|00000430| 6c 2d 70 61 72 61 67 72 | 61 70 68 20 22 03 0e 22 |l-paragr|aph ".."|
|00000440| 20 63 2d 66 6f 72 77 61 | 72 64 2d 63 6f 6e 64 69 | c-forwa|rd-condi|
|00000450| 74 69 6f 6e 61 6c 20 22 | 03 10 22 20 63 2d 62 61 |tional "|.." c-ba|
|00000460| 63 6b 77 61 72 64 2d 63 | 6f 6e 64 69 74 69 6f 6e |ckward-c|ondition|
|00000470| 61 6c 20 22 03 15 22 20 | 63 2d 75 70 2d 63 6f 6e |al ".." |c-up-con|
|00000480| 64 69 74 69 6f 6e 61 6c | 20 22 7f 22 20 62 61 63 |ditional| "." bac|
|00000490| 6b 77 61 72 64 2d 64 65 | 6c 65 74 65 2d 63 68 61 |kward-de|lete-cha|
|000004a0| 72 2d 75 6e 74 61 62 69 | 66 79 20 22 09 22 20 63 |r-untabi|fy "." c|
|000004b0| 2d 69 6e 64 65 6e 74 2d | 63 6f 6d 6d 61 6e 64 20 |-indent-|command |
|000004c0| 5b 6d 65 6e 75 2d 62 61 | 72 5d 20 6d 61 6b 65 2d |[menu-ba|r] make-|
|000004d0| 73 70 61 72 73 65 2d 6b | 65 79 6d 61 70 20 5b 6d |sparse-k|eymap [m|
|000004e0| 65 6e 75 2d 62 61 72 20 | 63 5d 20 22 43 22 20 5b |enu-bar |c] "C" [|
|000004f0| 6d 65 6e 75 2d 62 61 72 | 20 63 20 63 6f 6d 6d 65 |menu-bar| c comme|
|00000500| 6e 74 2d 72 65 67 69 6f | 6e 5d 20 28 22 43 6f 6d |nt-regio|n] ("Com|
|00000510| 6d 65 6e 74 20 4f 75 74 | 20 52 65 67 69 6f 6e 22 |ment Out| Region"|
|00000520| 20 2e 20 63 6f 6d 6d 65 | 6e 74 2d 72 65 67 69 6f | . comme|nt-regio|
|00000530| 6e 29 20 5b 6d 65 6e 75 | 2d 62 61 72 20 63 20 63 |n) [menu|-bar c c|
|00000540| 2d 6d 61 63 72 6f 2d 65 | 78 70 61 6e 64 5d 20 28 |-macro-e|xpand] (|
|00000550| 22 4d 61 63 72 6f 20 45 | 78 70 61 6e 64 20 52 65 |"Macro E|xpand Re|
|00000560| 67 69 6f 6e 22 20 2e 20 | 63 2d 6d 61 63 72 6f 2d |gion" . |c-macro-|
|00000570| 65 78 70 61 6e 64 29 20 | 5b 6d 65 6e 75 2d 62 61 |expand) |[menu-ba|
|00000580| 72 20 63 20 63 2d 62 61 | 63 6b 73 6c 61 73 68 2d |r c c-ba|ckslash-|
|00000590| 72 65 67 69 6f 6e 5d 20 | 28 22 42 61 63 6b 73 6c |region] |("Backsl|
|000005a0| 61 73 68 69 66 79 22 20 | 2e 20 63 2d 62 61 63 6b |ashify" |. c-back|
|000005b0| 73 6c 61 73 68 2d 72 65 | 67 69 6f 6e 29 20 5b 6d |slash-re|gion) [m|
|000005c0| 65 6e 75 2d 62 61 72 20 | 63 20 69 6e 64 65 6e 74 |enu-bar |c indent|
|000005d0| 2d 65 78 70 5d 20 28 22 | 49 6e 64 65 6e 74 20 45 |-exp] ("|Indent E|
|000005e0| 78 70 72 65 73 73 69 6f | 6e 22 20 2e 20 69 6e 64 |xpressio|n" . ind|
|000005f0| 65 6e 74 2d 63 2d 65 78 | 70 29 20 5b 6d 65 6e 75 |ent-c-ex|p) [menu|
|00000600| 2d 62 61 72 20 63 20 69 | 6e 64 65 6e 74 2d 6c 69 |-bar c i|ndent-li|
|00000610| 6e 65 5d 20 28 22 49 6e | 64 65 6e 74 20 4c 69 6e |ne] ("In|dent Lin|
|00000620| 65 22 20 2e 20 63 2d 69 | 6e 64 65 6e 74 2d 63 6f |e" . c-i|ndent-co|
|00000630| 6d 6d 61 6e 64 29 20 5b | 6d 65 6e 75 2d 62 61 72 |mmand) [|menu-bar|
|00000640| 20 63 20 66 69 6c 6c 5d | 20 28 22 46 69 6c 6c 20 | c fill]| ("Fill |
|00000650| 43 6f 6d 6d 65 6e 74 20 | 50 61 72 61 67 72 61 70 |Comment |Paragrap|
|00000660| 68 22 20 2e 20 63 2d 66 | 69 6c 6c 2d 70 61 72 61 |h" . c-f|ill-para|
|00000670| 67 72 61 70 68 29 20 5b | 6d 65 6e 75 2d 62 61 72 |graph) [|menu-bar|
|00000680| 20 63 20 75 70 5d 20 28 | 22 55 70 20 43 6f 6e 64 | c up] (|"Up Cond|
|00000690| 69 74 69 6f 6e 61 6c 22 | 20 2e 20 63 2d 75 70 2d |itional"| . c-up-|
|000006a0| 63 6f 6e 64 69 74 69 6f | 6e 61 6c 29 20 5b 6d 65 |conditio|nal) [me|
|000006b0| 6e 75 2d 62 61 72 20 63 | 20 62 61 63 6b 77 61 72 |nu-bar c| backwar|
|000006c0| 64 5d 20 28 22 42 61 63 | 6b 77 61 72 64 20 43 6f |d] ("Bac|kward Co|
|000006d0| 6e 64 69 74 69 6f 6e 61 | 6c 22 20 2e 20 63 2d 62 |nditiona|l" . c-b|
|000006e0| 61 63 6b 77 61 72 64 2d | 63 6f 6e 64 69 74 69 6f |ackward-|conditio|
|000006f0| 6e 61 6c 29 20 5b 6d 65 | 6e 75 2d 62 61 72 20 63 |nal) [me|nu-bar c|
|00000700| 20 66 6f 72 77 61 72 64 | 5d 20 28 22 46 6f 72 77 | forward|] ("Forw|
|00000710| 61 72 64 20 43 6f 6e 64 | 69 74 69 6f 6e 61 6c 22 |ard Cond|itional"|
|00000720| 20 2e 20 63 2d 66 6f 72 | 77 61 72 64 2d 63 6f 6e | . c-for|ward-con|
|00000730| 64 69 74 69 6f 6e 61 6c | 29 20 5b 6d 65 6e 75 2d |ditional|) [menu-|
|00000740| 62 61 72 20 63 20 62 61 | 63 6b 77 61 72 64 2d 73 |bar c ba|ckward-s|
|00000750| 74 6d 74 5d 20 28 22 42 | 61 63 6b 77 61 72 64 20 |tmt] ("B|ackward |
|00000760| 53 74 61 74 65 6d 65 6e | 74 22 20 2e 20 63 2d 62 |Statemen|t" . c-b|
|00000770| 65 67 69 6e 6e 69 6e 67 | 2d 6f 66 2d 73 74 61 74 |eginning|-of-stat|
|00000780| 65 6d 65 6e 74 29 20 5b | 6d 65 6e 75 2d 62 61 72 |ement) [|menu-bar|
|00000790| 20 63 20 66 6f 72 77 61 | 72 64 2d 73 74 6d 74 5d | c forwa|rd-stmt]|
|000007a0| 20 28 22 46 6f 72 77 61 | 72 64 20 53 74 61 74 65 | ("Forwa|rd State|
|000007b0| 6d 65 6e 74 22 20 2e 20 | 63 2d 65 6e 64 2d 6f 66 |ment" . |c-end-of|
|000007c0| 2d 73 74 61 74 65 6d 65 | 6e 74 29 5d 20 36 29 0a |-stateme|nt)] 6).|
|000007d0| 28 61 75 74 6f 6c 6f 61 | 64 20 28 71 75 6f 74 65 |(autoloa|d (quote|
|000007e0| 20 63 2d 6d 61 63 72 6f | 2d 65 78 70 61 6e 64 29 | c-macro|-expand)|
|000007f0| 20 22 63 6d 61 63 65 78 | 70 22 20 22 5c 0a 44 69 | "cmacex|p" "\.Di|
|00000800| 73 70 6c 61 79 20 74 68 | 65 20 72 65 73 75 6c 74 |splay th|e result|
|00000810| 20 6f 66 20 65 78 70 61 | 6e 64 69 6e 67 20 61 6c | of expa|nding al|
|00000820| 6c 20 43 20 6d 61 63 72 | 6f 73 20 6f 63 63 75 72 |l C macr|os occur|
|00000830| 72 69 6e 67 20 69 6e 20 | 74 68 65 20 72 65 67 69 |ring in |the regi|
|00000840| 6f 6e 2e 0a 54 68 65 20 | 65 78 70 61 6e 73 69 6f |on..The |expansio|
|00000850| 6e 20 69 73 20 65 6e 74 | 69 72 65 6c 79 20 63 6f |n is ent|irely co|
|00000860| 72 72 65 63 74 20 62 65 | 63 61 75 73 65 20 69 74 |rrect be|cause it|
|00000870| 20 75 73 65 73 20 74 68 | 65 20 43 20 70 72 65 70 | uses th|e C prep|
|00000880| 72 6f 63 65 73 73 6f 72 | 2e 22 20 74 29 0a 28 64 |rocessor|." t).(d|
|00000890| 65 66 76 61 72 20 63 2d | 6d 6f 64 65 2d 73 79 6e |efvar c-|mode-syn|
|000008a0| 74 61 78 2d 74 61 62 6c | 65 20 6e 69 6c 20 22 5c |tax-tabl|e nil "\|
|000008b0| 0a 53 79 6e 74 61 78 20 | 74 61 62 6c 65 20 69 6e |.Syntax |table in|
|000008c0| 20 75 73 65 20 69 6e 20 | 43 2d 6d 6f 64 65 20 62 | use in |C-mode b|
|000008d0| 75 66 66 65 72 73 2e 22 | 29 0a 28 62 79 74 65 2d |uffers."|).(byte-|
|000008e0| 63 6f 64 65 20 22 08 84 | 4f 00 c1 20 10 c2 c3 c4 |code "..|O.. ....|
|000008f0| 08 23 88 c2 c5 c6 08 23 | 88 c2 c7 c8 08 23 88 c2 |.#.....#|.....#..|
|00000900| c9 ca 08 23 88 c2 cb ca | 08 23 88 c2 cc ca 08 23 |...#....|.#.....#|
|00000910| 88 c2 cd ca 08 23 88 c2 | ce ca 08 23 88 c2 cf ca |.....#..|...#....|
|00000920| 08 23 88 c2 d0 ca 08 23 | 88 c2 d1 ca 08 23 88 c2 |.#.....#|.....#..|
|00000930| d2 d3 08 23 88 c1 87 22 | 20 5b 63 2d 6d 6f 64 65 |...#..."| [c-mode|
|00000940| 2d 73 79 6e 74 61 78 2d | 74 61 62 6c 65 20 6d 61 |-syntax-|table ma|
|00000950| 6b 65 2d 73 79 6e 74 61 | 78 2d 74 61 62 6c 65 20 |ke-synta|x-table |
|00000960| 6d 6f 64 69 66 79 2d 73 | 79 6e 74 61 78 2d 65 6e |modify-s|yntax-en|
|00000970| 74 72 79 20 39 32 20 22 | 5c 5c 22 20 34 37 20 22 |try 92 "|\\" 47 "|
|00000980| 2e 20 31 34 22 20 34 32 | 20 22 2e 20 32 33 22 20 |. 14" 42| ". 23" |
|00000990| 34 33 20 22 2e 22 20 34 | 35 20 36 31 20 33 37 20 |43 "." 4|5 61 37 |
|000009a0| 36 30 20 36 32 20 33 38 | 20 31 32 34 20 33 39 20 |60 62 38| 124 39 |
|000009b0| 22 5c 22 22 5d 20 34 29 | 0a 28 64 65 66 63 6f 6e |"\""] 4)|.(defcon|
|000009c0| 73 74 20 63 2d 69 6e 64 | 65 6e 74 2d 6c 65 76 65 |st c-ind|ent-leve|
|000009d0| 6c 20 32 20 22 5c 0a 2a | 49 6e 64 65 6e 74 61 74 |l 2 "\.*|Indentat|
|000009e0| 69 6f 6e 20 6f 66 20 43 | 20 73 74 61 74 65 6d 65 |ion of C| stateme|
|000009f0| 6e 74 73 20 77 69 74 68 | 20 72 65 73 70 65 63 74 |nts with| respect|
|00000a00| 20 74 6f 20 63 6f 6e 74 | 61 69 6e 69 6e 67 20 62 | to cont|aining b|
|00000a10| 6c 6f 63 6b 2e 22 29 0a | 28 64 65 66 63 6f 6e 73 |lock.").|(defcons|
|00000a20| 74 20 63 2d 62 72 61 63 | 65 2d 69 6d 61 67 69 6e |t c-brac|e-imagin|
|00000a30| 61 72 79 2d 6f 66 66 73 | 65 74 20 30 20 22 5c 0a |ary-offs|et 0 "\.|
|00000a40| 2a 49 6d 61 67 69 6e 65 | 64 20 69 6e 64 65 6e 74 |*Imagine|d indent|
|00000a50| 61 74 69 6f 6e 20 6f 66 | 20 61 20 43 20 6f 70 65 |ation of| a C ope|
|00000a60| 6e 20 62 72 61 63 65 20 | 74 68 61 74 20 61 63 74 |n brace |that act|
|00000a70| 75 61 6c 6c 79 20 66 6f | 6c 6c 6f 77 73 20 61 20 |ually fo|llows a |
|00000a80| 73 74 61 74 65 6d 65 6e | 74 2e 22 29 0a 28 64 65 |statemen|t.").(de|
|00000a90| 66 63 6f 6e 73 74 20 63 | 2d 62 72 61 63 65 2d 6f |fconst c|-brace-o|
|00000aa0| 66 66 73 65 74 20 30 20 | 22 5c 0a 2a 45 78 74 72 |ffset 0 |"\.*Extr|
|00000ab0| 61 20 69 6e 64 65 6e 74 | 61 74 69 6f 6e 20 66 6f |a indent|ation fo|
|00000ac0| 72 20 62 72 61 63 65 73 | 2c 20 63 6f 6d 70 61 72 |r braces|, compar|
|00000ad0| 65 64 20 77 69 74 68 20 | 6f 74 68 65 72 20 74 65 |ed with |other te|
|00000ae0| 78 74 20 69 6e 20 73 61 | 6d 65 20 63 6f 6e 74 65 |xt in sa|me conte|
|00000af0| 78 74 2e 22 29 0a 28 64 | 65 66 63 6f 6e 73 74 20 |xt.").(d|efconst |
|00000b00| 63 2d 61 72 67 64 65 63 | 6c 2d 69 6e 64 65 6e 74 |c-argdec|l-indent|
|00000b10| 20 35 20 22 5c 0a 2a 49 | 6e 64 65 6e 74 61 74 69 | 5 "\.*I|ndentati|
|00000b20| 6f 6e 20 6c 65 76 65 6c | 20 6f 66 20 64 65 63 6c |on level| of decl|
|00000b30| 61 72 61 74 69 6f 6e 73 | 20 6f 66 20 43 20 66 75 |arations| of C fu|
|00000b40| 6e 63 74 69 6f 6e 20 61 | 72 67 75 6d 65 6e 74 73 |nction a|rguments|
|00000b50| 2e 22 29 0a 28 64 65 66 | 63 6f 6e 73 74 20 63 2d |.").(def|const c-|
|00000b60| 6c 61 62 65 6c 2d 6f 66 | 66 73 65 74 20 2d 32 20 |label-of|fset -2 |
|00000b70| 22 5c 0a 2a 4f 66 66 73 | 65 74 20 6f 66 20 43 20 |"\.*Offs|et of C |
|00000b80| 6c 61 62 65 6c 20 6c 69 | 6e 65 73 20 61 6e 64 20 |label li|nes and |
|00000b90| 63 61 73 65 20 73 74 61 | 74 65 6d 65 6e 74 73 20 |case sta|tements |
|00000ba0| 72 65 6c 61 74 69 76 65 | 20 74 6f 20 75 73 75 61 |relative| to usua|
|00000bb0| 6c 20 69 6e 64 65 6e 74 | 61 74 69 6f 6e 2e 22 29 |l indent|ation.")|
|00000bc0| 0a 28 64 65 66 63 6f 6e | 73 74 20 63 2d 63 6f 6e |.(defcon|st c-con|
|00000bd0| 74 69 6e 75 65 64 2d 73 | 74 61 74 65 6d 65 6e 74 |tinued-s|tatement|
|00000be0| 2d 6f 66 66 73 65 74 20 | 32 20 22 5c 0a 2a 45 78 |-offset |2 "\.*Ex|
|00000bf0| 74 72 61 20 69 6e 64 65 | 6e 74 20 66 6f 72 20 6c |tra inde|nt for l|
|00000c00| 69 6e 65 73 20 6e 6f 74 | 20 73 74 61 72 74 69 6e |ines not| startin|
|00000c10| 67 20 6e 65 77 20 73 74 | 61 74 65 6d 65 6e 74 73 |g new st|atements|
|00000c20| 2e 22 29 0a 28 64 65 66 | 63 6f 6e 73 74 20 63 2d |.").(def|const c-|
|00000c30| 63 6f 6e 74 69 6e 75 65 | 64 2d 62 72 61 63 65 2d |continue|d-brace-|
|00000c40| 6f 66 66 73 65 74 20 30 | 20 22 5c 0a 2a 45 78 74 |offset 0| "\.*Ext|
|00000c50| 72 61 20 69 6e 64 65 6e | 74 20 66 6f 72 20 73 75 |ra inden|t for su|
|00000c60| 62 73 74 61 74 65 6d 65 | 6e 74 73 20 74 68 61 74 |bstateme|nts that|
|00000c70| 20 73 74 61 72 74 20 77 | 69 74 68 20 6f 70 65 6e | start w|ith open|
|00000c80| 2d 62 72 61 63 65 73 2e | 0a 54 68 69 73 20 69 73 |-braces.|.This is|
|00000c90| 20 69 6e 20 61 64 64 69 | 74 69 6f 6e 20 74 6f 20 | in addi|tion to |
|00000ca0| 63 2d 63 6f 6e 74 69 6e | 75 65 64 2d 73 74 61 74 |c-contin|ued-stat|
|00000cb0| 65 6d 65 6e 74 2d 6f 66 | 66 73 65 74 2e 22 29 0a |ement-of|fset.").|
|00000cc0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 11 c2 87 |(byte-co|de "....|
|00000cd0| 22 20 5b 28 28 22 47 4e | 55 22 20 28 63 2d 69 6e |" [(("GN|U" (c-in|
|00000ce0| 64 65 6e 74 2d 6c 65 76 | 65 6c 20 2e 20 32 29 20 |dent-lev|el . 2) |
|00000cf0| 28 63 2d 61 72 67 64 65 | 63 6c 2d 69 6e 64 65 6e |(c-argde|cl-inden|
|00000d00| 74 20 2e 20 35 29 20 28 | 63 2d 62 72 61 63 65 2d |t . 5) (|c-brace-|
|00000d10| 6f 66 66 73 65 74 20 2e | 20 30 29 20 28 63 2d 6c |offset .| 0) (c-l|
|00000d20| 61 62 65 6c 2d 6f 66 66 | 73 65 74 20 2e 20 2d 32 |abel-off|set . -2|
|00000d30| 29 20 28 63 2d 63 6f 6e | 74 69 6e 75 65 64 2d 73 |) (c-con|tinued-s|
|00000d40| 74 61 74 65 6d 65 6e 74 | 2d 6f 66 66 73 65 74 20 |tatement|-offset |
|00000d50| 2e 20 32 29 29 20 28 22 | 4b 26 52 22 20 28 63 2d |. 2)) ("|K&R" (c-|
|00000d60| 69 6e 64 65 6e 74 2d 6c | 65 76 65 6c 20 2e 20 35 |indent-l|evel . 5|
|00000d70| 29 20 28 63 2d 61 72 67 | 64 65 63 6c 2d 69 6e 64 |) (c-arg|decl-ind|
|00000d80| 65 6e 74 20 2e 20 30 29 | 20 28 63 2d 62 72 61 63 |ent . 0)| (c-brac|
|00000d90| 65 2d 6f 66 66 73 65 74 | 20 2e 20 2d 35 29 20 28 |e-offset| . -5) (|
|00000da0| 63 2d 6c 61 62 65 6c 2d | 6f 66 66 73 65 74 20 2e |c-label-|offset .|
|00000db0| 20 2d 35 29 20 28 63 2d | 63 6f 6e 74 69 6e 75 65 | -5) (c-|continue|
|00000dc0| 64 2d 73 74 61 74 65 6d | 65 6e 74 2d 6f 66 66 73 |d-statem|ent-offs|
|00000dd0| 65 74 20 2e 20 35 29 29 | 20 28 22 42 53 44 22 20 |et . 5))| ("BSD" |
|00000de0| 28 63 2d 69 6e 64 65 6e | 74 2d 6c 65 76 65 6c 20 |(c-inden|t-level |
|00000df0| 2e 20 34 29 20 28 63 2d | 61 72 67 64 65 63 6c 2d |. 4) (c-|argdecl-|
|00000e00| 69 6e 64 65 6e 74 20 2e | 20 34 29 20 28 63 2d 62 |indent .| 4) (c-b|
|00000e10| 72 61 63 65 2d 6f 66 66 | 73 65 74 20 2e 20 2d 34 |race-off|set . -4|
|00000e20| 29 20 28 63 2d 6c 61 62 | 65 6c 2d 6f 66 66 73 65 |) (c-lab|el-offse|
|00000e30| 74 20 2e 20 2d 34 29 20 | 28 63 2d 63 6f 6e 74 69 |t . -4) |(c-conti|
|00000e40| 6e 75 65 64 2d 73 74 61 | 74 65 6d 65 6e 74 2d 6f |nued-sta|tement-o|
|00000e50| 66 66 73 65 74 20 2e 20 | 34 29 29 20 28 22 43 2b |ffset . |4)) ("C+|
|00000e60| 2b 22 20 28 63 2d 69 6e | 64 65 6e 74 2d 6c 65 76 |+" (c-in|dent-lev|
|00000e70| 65 6c 20 2e 20 34 29 20 | 28 63 2d 63 6f 6e 74 69 |el . 4) |(c-conti|
|00000e80| 6e 75 65 64 2d 73 74 61 | 74 65 6d 65 6e 74 2d 6f |nued-sta|tement-o|
|00000e90| 66 66 73 65 74 20 2e 20 | 34 29 20 28 63 2d 62 72 |ffset . |4) (c-br|
|00000ea0| 61 63 65 2d 6f 66 66 73 | 65 74 20 2e 20 2d 34 29 |ace-offs|et . -4)|
|00000eb0| 20 28 63 2d 61 72 67 64 | 65 63 6c 2d 69 6e 64 65 | (c-argd|ecl-inde|
|00000ec0| 6e 74 20 2e 20 30 29 20 | 28 63 2d 6c 61 62 65 6c |nt . 0) |(c-label|
|00000ed0| 2d 6f 66 66 73 65 74 20 | 2e 20 2d 34 29 20 28 63 |-offset |. -4) (c|
|00000ee0| 2d 61 75 74 6f 2d 6e 65 | 77 6c 69 6e 65 20 2e 20 |-auto-ne|wline . |
|00000ef0| 74 29 29 20 28 22 57 68 | 69 74 65 73 6d 69 74 68 |t)) ("Wh|itesmith|
|00000f00| 22 20 28 63 2d 69 6e 64 | 65 6e 74 2d 6c 65 76 65 |" (c-ind|ent-leve|
|00000f10| 6c 20 2e 20 34 29 20 28 | 63 2d 61 72 67 64 65 63 |l . 4) (|c-argdec|
|00000f20| 6c 2d 69 6e 64 65 6e 74 | 20 2e 20 34 29 20 28 63 |l-indent| . 4) (c|
|00000f30| 2d 62 72 61 63 65 2d 6f | 66 66 73 65 74 20 2e 20 |-brace-o|ffset . |
|00000f40| 30 29 20 28 63 2d 6c 61 | 62 65 6c 2d 6f 66 66 73 |0) (c-la|bel-offs|
|00000f50| 65 74 20 2e 20 2d 34 29 | 20 28 63 2d 63 6f 6e 74 |et . -4)| (c-cont|
|00000f60| 69 6e 75 65 64 2d 73 74 | 61 74 65 6d 65 6e 74 2d |inued-st|atement-|
|00000f70| 6f 66 66 73 65 74 20 2e | 20 34 29 29 29 20 63 2d |offset .| 4))) c-|
|00000f80| 73 74 79 6c 65 2d 61 6c | 69 73 74 20 6e 69 6c 5d |style-al|ist nil]|
|00000f90| 20 31 29 0a 28 64 65 66 | 63 6f 6e 73 74 20 63 2d | 1).(def|const c-|
|00000fa0| 61 75 74 6f 2d 6e 65 77 | 6c 69 6e 65 20 6e 69 6c |auto-new|line nil|
|00000fb0| 20 22 5c 0a 2a 4e 6f 6e | 2d 6e 69 6c 20 6d 65 61 | "\.*Non|-nil mea|
|00000fc0| 6e 73 20 61 75 74 6f 6d | 61 74 69 63 61 6c 6c 79 |ns autom|atically|
|00000fd0| 20 6e 65 77 6c 69 6e 65 | 20 62 65 66 6f 72 65 20 | newline| before |
|00000fe0| 61 6e 64 20 61 66 74 65 | 72 20 62 72 61 63 65 73 |and afte|r braces|
|00000ff0| 2c 0a 61 6e 64 20 61 66 | 74 65 72 20 63 6f 6c 6f |,.and af|ter colo|
|00001000| 6e 73 20 61 6e 64 20 73 | 65 6d 69 63 6f 6c 6f 6e |ns and s|emicolon|
|00001010| 73 2c 20 69 6e 73 65 72 | 74 65 64 20 69 6e 20 43 |s, inser|ted in C|
|00001020| 20 63 6f 64 65 2e 0a 49 | 66 20 79 6f 75 20 64 6f | code..I|f you do|
|00001030| 20 6e 6f 74 20 77 61 6e | 74 20 61 20 6c 65 61 64 | not wan|t a lead|
|00001040| 69 6e 67 20 6e 65 77 6c | 69 6e 65 20 62 65 66 6f |ing newl|ine befo|
|00001050| 72 65 20 62 72 61 63 65 | 73 20 74 68 65 6e 20 75 |re brace|s then u|
|00001060| 73 65 3a 0a 20 20 28 64 | 65 66 69 6e 65 2d 6b 65 |se:. (d|efine-ke|
|00001070| 79 20 63 2d 6d 6f 64 65 | 2d 6d 61 70 20 5c 22 7b |y c-mode|-map \"{|
|00001080| 5c 22 20 27 65 6c 65 63 | 74 72 69 63 2d 63 2d 73 |\" 'elec|tric-c-s|
|00001090| 65 6d 69 29 22 29 0a 28 | 64 65 66 63 6f 6e 73 74 |emi)").(|defconst|
|000010a0| 20 63 2d 74 61 62 2d 61 | 6c 77 61 79 73 2d 69 6e | c-tab-a|lways-in|
|000010b0| 64 65 6e 74 20 74 20 22 | 5c 0a 2a 4e 6f 6e 2d 6e |dent t "|\.*Non-n|
|000010c0| 69 6c 20 6d 65 61 6e 73 | 20 54 41 42 20 69 6e 20 |il means| TAB in |
|000010d0| 43 20 6d 6f 64 65 20 73 | 68 6f 75 6c 64 20 61 6c |C mode s|hould al|
|000010e0| 77 61 79 73 20 72 65 69 | 6e 64 65 6e 74 20 74 68 |ways rei|ndent th|
|000010f0| 65 20 63 75 72 72 65 6e | 74 20 6c 69 6e 65 2c 0a |e curren|t line,.|
|00001100| 72 65 67 61 72 64 6c 65 | 73 73 20 6f 66 20 77 68 |regardle|ss of wh|
|00001110| 65 72 65 20 69 6e 20 74 | 68 65 20 6c 69 6e 65 20 |ere in t|he line |
|00001120| 70 6f 69 6e 74 20 69 73 | 20 77 68 65 6e 20 74 68 |point is| when th|
|00001130| 65 20 54 41 42 20 63 6f | 6d 6d 61 6e 64 20 69 73 |e TAB co|mmand is|
|00001140| 20 75 73 65 64 2e 22 29 | 0a 28 62 79 74 65 2d 63 | used.")|.(byte-c|
|00001150| 6f 64 65 20 22 c0 11 c2 | 87 22 20 5b 22 63 61 73 |ode "...|." ["cas|
|00001160| 65 5b 20 09 27 2f 28 5d | 5c 5c 7c 64 65 66 61 75 |e[ .'/(]|\\|defau|
|00001170| 6c 74 5c 5c 28 5c 5c 53 | 5f 5c 5c 7c 27 5c 5c 29 |lt\\(\\S|_\\|'\\)|
|00001180| 22 20 63 2d 73 77 69 74 | 63 68 2d 6c 61 62 65 6c |" c-swit|ch-label|
|00001190| 2d 72 65 67 65 78 70 20 | 6e 69 6c 5d 20 31 29 0a |-regexp |nil] 1).|
|000011a0| 28 64 65 66 61 6c 69 61 | 73 20 27 63 2d 6d 6f 64 |(defalia|s 'c-mod|
|000011b0| 65 20 23 5b 6e 69 6c 20 | 22 c0 20 88 c1 5c 6e 21 |e #[nil |". ..\n!|
|000011c0| 88 c3 14 c5 16 06 0e 07 | 16 08 c9 0e 5c 6e 21 88 |........|....\n!.|
|000011d0| cb cc 21 88 cd 0e 0e 50 | 16 5c 66 cb cf 21 88 0e |..!....P|.\f..!..|
|000011e0| 5c 66 16 0f cb d0 21 88 | d1 16 10 cb d2 21 88 d3 |\f....!.|.....!..|
|000011f0| 16 12 cb d4 21 88 d5 16 | 14 cb d6 21 88 d1 16 16 |....!...|...!....|
|00001200| cb d7 21 88 d8 16 17 cb | d9 21 88 da 16 19 cb db |..!.....|.!......|
|00001210| 21 88 dc 16 1b cb dd 21 | 88 de 16 1d cb df 21 88 |!......!|......!.|
|00001220| e0 16 1f cb e1 21 88 e2 | 16 21 cb e3 21 88 e4 16 |.....!..|.!..!...|
|00001230| 23 cb e5 21 88 d1 16 25 | e6 e7 21 87 22 20 5b 6b |#..!...%|..!." [k|
|00001240| 69 6c 6c 2d 61 6c 6c 2d | 6c 6f 63 61 6c 2d 76 61 |ill-all-|local-va|
|00001250| 72 69 61 62 6c 65 73 20 | 75 73 65 2d 6c 6f 63 61 |riables |use-loca|
|00001260| 6c 2d 6d 61 70 20 63 2d | 6d 6f 64 65 2d 6d 61 70 |l-map c-|mode-map|
|00001270| 20 63 2d 6d 6f 64 65 20 | 6d 61 6a 6f 72 2d 6d 6f | c-mode |major-mo|
|00001280| 64 65 20 22 43 22 20 6d | 6f 64 65 2d 6e 61 6d 65 |de "C" m|ode-name|
|00001290| 20 63 2d 6d 6f 64 65 2d | 61 62 62 72 65 76 2d 74 | c-mode-|abbrev-t|
|000012a0| 61 62 6c 65 20 6c 6f 63 | 61 6c 2d 61 62 62 72 65 |able loc|al-abbre|
|000012b0| 76 2d 74 61 62 6c 65 20 | 73 65 74 2d 73 79 6e 74 |v-table |set-synt|
|000012c0| 61 78 2d 74 61 62 6c 65 | 20 63 2d 6d 6f 64 65 2d |ax-table| c-mode-|
|000012d0| 73 79 6e 74 61 78 2d 74 | 61 62 6c 65 20 6d 61 6b |syntax-t|able mak|
|000012e0| 65 2d 6c 6f 63 61 6c 2d | 76 61 72 69 61 62 6c 65 |e-local-|variable|
|000012f0| 20 70 61 72 61 67 72 61 | 70 68 2d 73 74 61 72 74 | paragra|ph-start|
|00001300| 20 22 5e 24 5c 5c 7c 22 | 20 70 61 67 65 2d 64 65 | "^$\\|"| page-de|
|00001310| 6c 69 6d 69 74 65 72 20 | 70 61 72 61 67 72 61 70 |limiter |paragrap|
|00001320| 68 2d 73 65 70 61 72 61 | 74 65 20 70 61 72 61 67 |h-separa|te parag|
|00001330| 72 61 70 68 2d 69 67 6e | 6f 72 65 2d 66 69 6c 6c |raph-ign|ore-fill|
|00001340| 2d 70 72 65 66 69 78 20 | 74 20 69 6e 64 65 6e 74 |-prefix |t indent|
|00001350| 2d 6c 69 6e 65 2d 66 75 | 6e 63 74 69 6f 6e 20 63 |-line-fu|nction c|
|00001360| 2d 69 6e 64 65 6e 74 2d | 6c 69 6e 65 20 69 6e 64 |-indent-|line ind|
|00001370| 65 6e 74 2d 72 65 67 69 | 6f 6e 2d 66 75 6e 63 74 |ent-regi|on-funct|
|00001380| 69 6f 6e 20 63 2d 69 6e | 64 65 6e 74 2d 72 65 67 |ion c-in|dent-reg|
|00001390| 69 6f 6e 20 72 65 71 75 | 69 72 65 2d 66 69 6e 61 |ion requ|ire-fina|
|000013a0| 6c 2d 6e 65 77 6c 69 6e | 65 20 6f 75 74 6c 69 6e |l-newlin|e outlin|
|000013b0| 65 2d 72 65 67 65 78 70 | 20 22 5b 5e 23 5c 6e 0d |e-regexp| "[^#\n.|
|000013c0| 5d 22 20 6f 75 74 6c 69 | 6e 65 2d 6c 65 76 65 6c |]" outli|ne-level|
|000013d0| 20 63 2d 6f 75 74 6c 69 | 6e 65 2d 6c 65 76 65 6c | c-outli|ne-level|
|000013e0| 20 63 6f 6d 6d 65 6e 74 | 2d 73 74 61 72 74 20 22 | comment|-start "|
|000013f0| 2f 2a 20 22 20 63 6f 6d | 6d 65 6e 74 2d 65 6e 64 |/* " com|ment-end|
|00001400| 20 22 20 2a 2f 22 20 63 | 6f 6d 6d 65 6e 74 2d 63 | " */" c|omment-c|
|00001410| 6f 6c 75 6d 6e 20 33 32 | 20 63 6f 6d 6d 65 6e 74 |olumn 32| comment|
|00001420| 2d 73 74 61 72 74 2d 73 | 6b 69 70 20 22 2f 5c 5c |-start-s|kip "/\\|
|00001430| 2a 2b 20 2a 22 20 63 6f | 6d 6d 65 6e 74 2d 69 6e |*+ *" co|mment-in|
|00001440| 64 65 6e 74 2d 66 75 6e | 63 74 69 6f 6e 20 63 2d |dent-fun|ction c-|
|00001450| 63 6f 6d 6d 65 6e 74 2d | 69 6e 64 65 6e 74 20 70 |comment-|indent p|
|00001460| 61 72 73 65 2d 73 65 78 | 70 2d 69 67 6e 6f 72 65 |arse-sex|p-ignore|
|00001470| 2d 63 6f 6d 6d 65 6e 74 | 73 20 72 75 6e 2d 68 6f |-comment|s run-ho|
|00001480| 6f 6b 73 20 63 2d 6d 6f | 64 65 2d 68 6f 6f 6b 5d |oks c-mo|de-hook]|
|00001490| 20 32 20 22 5c 0a 4d 61 | 6a 6f 72 20 6d 6f 64 65 | 2 "\.Ma|jor mode|
|000014a0| 20 66 6f 72 20 65 64 69 | 74 69 6e 67 20 43 20 63 | for edi|ting C c|
|000014b0| 6f 64 65 2e 0a 45 78 70 | 72 65 73 73 69 6f 6e 20 |ode..Exp|ression |
|000014c0| 61 6e 64 20 6c 69 73 74 | 20 63 6f 6d 6d 61 6e 64 |and list| command|
|000014d0| 73 20 75 6e 64 65 72 73 | 74 61 6e 64 20 61 6c 6c |s unders|tand all|
|000014e0| 20 43 20 62 72 61 63 6b | 65 74 73 2e 0a 54 61 62 | C brack|ets..Tab|
|000014f0| 20 69 6e 64 65 6e 74 73 | 20 66 6f 72 20 43 20 63 | indents| for C c|
|00001500| 6f 64 65 2e 0a 43 6f 6d | 6d 65 6e 74 73 20 61 72 |ode..Com|ments ar|
|00001510| 65 20 64 65 6c 69 6d 69 | 74 65 64 20 77 69 74 68 |e delimi|ted with|
|00001520| 20 2f 2a 20 2e 2e 2e 20 | 2a 2f 2e 0a 50 61 72 61 | /* ... |*/..Para|
|00001530| 67 72 61 70 68 73 20 61 | 72 65 20 73 65 70 61 72 |graphs a|re separ|
|00001540| 61 74 65 64 20 62 79 20 | 62 6c 61 6e 6b 20 6c 69 |ated by |blank li|
|00001550| 6e 65 73 20 6f 6e 6c 79 | 2e 0a 44 65 6c 65 74 65 |nes only|..Delete|
|00001560| 20 63 6f 6e 76 65 72 74 | 73 20 74 61 62 73 20 74 | convert|s tabs t|
|00001570| 6f 20 73 70 61 63 65 73 | 20 61 73 20 69 74 20 6d |o spaces| as it m|
|00001580| 6f 76 65 73 20 62 61 63 | 6b 2e 0a 5c 5c 7b 63 2d |oves bac|k..\\{c-|
|00001590| 6d 6f 64 65 2d 6d 61 70 | 7d 0a 56 61 72 69 61 62 |mode-map|}.Variab|
|000015a0| 6c 65 73 20 63 6f 6e 74 | 72 6f 6c 6c 69 6e 67 20 |les cont|rolling |
|000015b0| 69 6e 64 65 6e 74 61 74 | 69 6f 6e 20 73 74 79 6c |indentat|ion styl|
|000015c0| 65 3a 0a 20 63 2d 74 61 | 62 2d 61 6c 77 61 79 73 |e:. c-ta|b-always|
|000015d0| 2d 69 6e 64 65 6e 74 0a | 20 20 20 20 4e 6f 6e 2d |-indent.| Non-|
|000015e0| 6e 69 6c 20 6d 65 61 6e | 73 20 54 41 42 20 69 6e |nil mean|s TAB in|
|000015f0| 20 43 20 6d 6f 64 65 20 | 73 68 6f 75 6c 64 20 61 | C mode |should a|
|00001600| 6c 77 61 79 73 20 72 65 | 69 6e 64 65 6e 74 20 74 |lways re|indent t|
|00001610| 68 65 20 63 75 72 72 65 | 6e 74 20 6c 69 6e 65 2c |he curre|nt line,|
|00001620| 0a 20 20 20 20 72 65 67 | 61 72 64 6c 65 73 73 20 |. reg|ardless |
|00001630| 6f 66 20 77 68 65 72 65 | 20 69 6e 20 74 68 65 20 |of where| in the |
|00001640| 6c 69 6e 65 20 70 6f 69 | 6e 74 20 69 73 20 77 68 |line poi|nt is wh|
|00001650| 65 6e 20 74 68 65 20 54 | 41 42 20 63 6f 6d 6d 61 |en the T|AB comma|
|00001660| 6e 64 20 69 73 20 75 73 | 65 64 2e 0a 20 63 2d 61 |nd is us|ed.. c-a|
|00001670| 75 74 6f 2d 6e 65 77 6c | 69 6e 65 0a 20 20 20 20 |uto-newl|ine. |
|00001680| 4e 6f 6e 2d 6e 69 6c 20 | 6d 65 61 6e 73 20 61 75 |Non-nil |means au|
|00001690| 74 6f 6d 61 74 69 63 61 | 6c 6c 79 20 6e 65 77 6c |tomatica|lly newl|
|000016a0| 69 6e 65 20 62 65 66 6f | 72 65 20 61 6e 64 20 61 |ine befo|re and a|
|000016b0| 66 74 65 72 20 62 72 61 | 63 65 73 2c 0a 20 20 20 |fter bra|ces,. |
|000016c0| 20 61 6e 64 20 61 66 74 | 65 72 20 63 6f 6c 6f 6e | and aft|er colon|
|000016d0| 73 20 61 6e 64 20 73 65 | 6d 69 63 6f 6c 6f 6e 73 |s and se|micolons|
|000016e0| 2c 20 69 6e 73 65 72 74 | 65 64 20 69 6e 20 43 20 |, insert|ed in C |
|000016f0| 63 6f 64 65 2e 0a 20 63 | 2d 69 6e 64 65 6e 74 2d |code.. c|-indent-|
|00001700| 6c 65 76 65 6c 0a 20 20 | 20 20 49 6e 64 65 6e 74 |level. | Indent|
|00001710| 61 74 69 6f 6e 20 6f 66 | 20 43 20 73 74 61 74 65 |ation of| C state|
|00001720| 6d 65 6e 74 73 20 77 69 | 74 68 69 6e 20 73 75 72 |ments wi|thin sur|
|00001730| 72 6f 75 6e 64 69 6e 67 | 20 62 6c 6f 63 6b 2e 0a |rounding| block..|
|00001740| 20 20 20 20 54 68 65 20 | 73 75 72 72 6f 75 6e 64 | The |surround|
|00001750| 69 6e 67 20 62 6c 6f 63 | 6b 27 73 20 69 6e 64 65 |ing bloc|k's inde|
|00001760| 6e 74 61 74 69 6f 6e 20 | 69 73 20 74 68 65 20 69 |ntation |is the i|
|00001770| 6e 64 65 6e 74 61 74 69 | 6f 6e 0a 20 20 20 20 6f |ndentati|on. o|
|00001780| 66 20 74 68 65 20 6c 69 | 6e 65 20 6f 6e 20 77 68 |f the li|ne on wh|
|00001790| 69 63 68 20 74 68 65 20 | 6f 70 65 6e 2d 62 72 61 |ich the |open-bra|
|000017a0| 63 65 20 61 70 70 65 61 | 72 73 2e 0a 20 63 2d 63 |ce appea|rs.. c-c|
|000017b0| 6f 6e 74 69 6e 75 65 64 | 2d 73 74 61 74 65 6d 65 |ontinued|-stateme|
|000017c0| 6e 74 2d 6f 66 66 73 65 | 74 0a 20 20 20 20 45 78 |nt-offse|t. Ex|
|000017d0| 74 72 61 20 69 6e 64 65 | 6e 74 61 74 69 6f 6e 20 |tra inde|ntation |
|000017e0| 67 69 76 65 6e 20 74 6f | 20 61 20 73 75 62 73 74 |given to| a subst|
|000017f0| 61 74 65 6d 65 6e 74 2c | 20 73 75 63 68 20 61 73 |atement,| such as|
|00001800| 20 74 68 65 0a 20 20 20 | 20 74 68 65 6e 2d 63 6c | the. | then-cl|
|00001810| 61 75 73 65 20 6f 66 20 | 61 6e 20 69 66 20 6f 72 |ause of |an if or|
|00001820| 20 62 6f 64 79 20 6f 66 | 20 61 20 77 68 69 6c 65 | body of| a while|
|00001830| 2e 0a 20 63 2d 63 6f 6e | 74 69 6e 75 65 64 2d 62 |.. c-con|tinued-b|
|00001840| 72 61 63 65 2d 6f 66 66 | 73 65 74 0a 20 20 20 20 |race-off|set. |
|00001850| 45 78 74 72 61 20 69 6e | 64 65 6e 74 61 74 69 6f |Extra in|dentatio|
|00001860| 6e 20 67 69 76 65 6e 20 | 74 6f 20 61 20 62 72 61 |n given |to a bra|
|00001870| 63 65 20 74 68 61 74 20 | 73 74 61 72 74 73 20 61 |ce that |starts a|
|00001880| 20 73 75 62 73 74 61 74 | 65 6d 65 6e 74 2e 0a 20 | substat|ement.. |
|00001890| 20 20 20 54 68 69 73 20 | 69 73 20 69 6e 20 61 64 | This |is in ad|
|000018a0| 64 69 74 69 6f 6e 20 74 | 6f 20 63 2d 63 6f 6e 74 |dition t|o c-cont|
|000018b0| 69 6e 75 65 64 2d 73 74 | 61 74 65 6d 65 6e 74 2d |inued-st|atement-|
|000018c0| 6f 66 66 73 65 74 2e 0a | 20 63 2d 62 72 61 63 65 |offset..| c-brace|
|000018d0| 2d 6f 66 66 73 65 74 0a | 20 20 20 20 45 78 74 72 |-offset.| Extr|
|000018e0| 61 20 69 6e 64 65 6e 74 | 61 74 69 6f 6e 20 66 6f |a indent|ation fo|
|000018f0| 72 20 6c 69 6e 65 20 69 | 66 20 69 74 20 73 74 61 |r line i|f it sta|
|00001900| 72 74 73 20 77 69 74 68 | 20 61 6e 20 6f 70 65 6e |rts with| an open|
|00001910| 20 62 72 61 63 65 2e 0a | 20 63 2d 62 72 61 63 65 | brace..| c-brace|
|00001920| 2d 69 6d 61 67 69 6e 61 | 72 79 2d 6f 66 66 73 65 |-imagina|ry-offse|
|00001930| 74 0a 20 20 20 20 41 6e | 20 6f 70 65 6e 20 62 72 |t. An| open br|
|00001940| 61 63 65 20 66 6f 6c 6c | 6f 77 69 6e 67 20 6f 74 |ace foll|owing ot|
|00001950| 68 65 72 20 74 65 78 74 | 20 69 73 20 74 72 65 61 |her text| is trea|
|00001960| 74 65 64 20 61 73 20 69 | 66 20 69 74 20 77 65 72 |ted as i|f it wer|
|00001970| 65 0a 20 20 20 20 74 68 | 69 73 20 66 61 72 20 74 |e. th|is far t|
|00001980| 6f 20 74 68 65 20 72 69 | 67 68 74 20 6f 66 20 74 |o the ri|ght of t|
|00001990| 68 65 20 73 74 61 72 74 | 20 6f 66 20 69 74 73 20 |he start| of its |
|000019a0| 6c 69 6e 65 2e 0a 20 63 | 2d 61 72 67 64 65 63 6c |line.. c|-argdecl|
|000019b0| 2d 69 6e 64 65 6e 74 0a | 20 20 20 20 49 6e 64 65 |-indent.| Inde|
|000019c0| 6e 74 61 74 69 6f 6e 20 | 6c 65 76 65 6c 20 6f 66 |ntation |level of|
|000019d0| 20 64 65 63 6c 61 72 61 | 74 69 6f 6e 73 20 6f 66 | declara|tions of|
|000019e0| 20 43 20 66 75 6e 63 74 | 69 6f 6e 20 61 72 67 75 | C funct|ion argu|
|000019f0| 6d 65 6e 74 73 2e 0a 20 | 63 2d 6c 61 62 65 6c 2d |ments.. |c-label-|
|00001a00| 6f 66 66 73 65 74 0a 20 | 20 20 20 45 78 74 72 61 |offset. | Extra|
|00001a10| 20 69 6e 64 65 6e 74 61 | 74 69 6f 6e 20 66 6f 72 | indenta|tion for|
|00001a20| 20 6c 69 6e 65 20 74 68 | 61 74 20 69 73 20 61 20 | line th|at is a |
|00001a30| 6c 61 62 65 6c 2c 20 6f | 72 20 63 61 73 65 20 6f |label, o|r case o|
|00001a40| 72 20 64 65 66 61 75 6c | 74 2e 0a 0a 53 65 74 74 |r defaul|t...Sett|
|00001a50| 69 6e 67 73 20 66 6f 72 | 20 4b 26 52 20 61 6e 64 |ings for| K&R and|
|00001a60| 20 42 53 44 20 69 6e 64 | 65 6e 74 61 74 69 6f 6e | BSD ind|entation|
|00001a70| 20 73 74 79 6c 65 73 20 | 61 72 65 0a 20 20 63 2d | styles |are. c-|
|00001a80| 69 6e 64 65 6e 74 2d 6c | 65 76 65 6c 20 20 20 20 |indent-l|evel |
|00001a90| 20 20 20 20 20 20 20 20 | 20 20 20 20 35 20 20 20 | | 5 |
|00001aa0| 20 38 0a 20 20 63 2d 63 | 6f 6e 74 69 6e 75 65 64 | 8. c-c|ontinued|
|00001ab0| 2d 73 74 61 74 65 6d 65 | 6e 74 2d 6f 66 66 73 65 |-stateme|nt-offse|
|00001ac0| 74 20 20 35 20 20 20 20 | 38 0a 20 20 63 2d 62 72 |t 5 |8. c-br|
|00001ad0| 61 63 65 2d 6f 66 66 73 | 65 74 20 20 20 20 20 20 |ace-offs|et |
|00001ae0| 20 20 20 20 20 20 20 20 | 20 2d 35 20 20 20 2d 38 | | -5 -8|
|00001af0| 0a 20 20 63 2d 61 72 67 | 64 65 63 6c 2d 69 6e 64 |. c-arg|decl-ind|
|00001b00| 65 6e 74 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |ent | |
|00001b10| 20 30 20 20 20 20 38 0a | 20 20 63 2d 6c 61 62 65 | 0 8.| c-labe|
|00001b20| 6c 2d 6f 66 66 73 65 74 | 20 20 20 20 20 20 20 20 |l-offset| |
|00001b30| 20 20 20 20 20 20 20 2d | 35 20 20 20 2d 38 0a 0a | -|5 -8..|
|00001b40| 54 75 72 6e 69 6e 67 20 | 6f 6e 20 43 20 6d 6f 64 |Turning |on C mod|
|00001b50| 65 20 63 61 6c 6c 73 20 | 74 68 65 20 76 61 6c 75 |e calls |the valu|
|00001b60| 65 20 6f 66 20 74 68 65 | 20 76 61 72 69 61 62 6c |e of the| variabl|
|00001b70| 65 20 63 2d 6d 6f 64 65 | 2d 68 6f 6f 6b 20 77 69 |e c-mode|-hook wi|
|00001b80| 74 68 20 6e 6f 20 61 72 | 67 73 2c 0a 69 66 20 74 |th no ar|gs,.if t|
|00001b90| 68 61 74 20 76 61 6c 75 | 65 20 69 73 20 6e 6f 6e |hat valu|e is non|
|00001ba0| 2d 6e 69 6c 2e 22 20 6e | 69 6c 5d 29 0a 28 62 79 |-nil." n|il]).(by|
|00001bb0| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 c2 5c 22 88 c0 |te-code |"...\"..|
|00001bc0| c3 c4 5c 22 87 22 20 5b | 64 65 66 61 6c 69 61 73 |..\"." [|defalias|
|00001bd0| 20 63 2d 6f 75 74 6c 69 | 6e 65 2d 6c 65 76 65 6c | c-outli|ne-level|
|00001be0| 20 23 5b 6e 69 6c 20 22 | 8a c0 c1 77 88 69 29 87 | #[nil "|...w.i).|
|00001bf0| 22 20 5b 22 09 20 22 20 | 6e 69 6c 5d 20 32 5d 20 |" [". " |nil] 2] |
|00001c00| 63 2d 63 6f 6d 6d 65 6e | 74 2d 69 6e 64 65 6e 74 |c-commen|t-indent|
|00001c10| 20 23 5b 6e 69 6c 20 22 | c0 c1 21 83 08 00 c2 87 | #[nil "|..!.....|
|00001c20| 60 1b 8a c2 79 88 c0 c4 | 21 83 1d 00 c5 c6 21 88 |`...y...|!.....!.|
|00001c30| 69 54 82 48 00 c0 c7 21 | 84 29 00 c0 c8 21 83 2d |iT.H...!|.)...!.-|
|00001c40| 00 c9 82 48 00 0b 62 88 | ca cb 78 88 0e 5c 66 c2 |...H..b.|..x..\f.|
|00001c50| 55 83 43 00 6e 83 43 00 | c2 82 48 00 69 54 0e 5c |U.C.n.C.|..H.iT.\|
|00001c60| 66 5d 2a 87 22 20 5b 6c | 6f 6f 6b 69 6e 67 2d 61 |f]*." [l|ooking-a|
|00001c70| 74 20 22 5e 2f 5c 5c 2a | 22 20 30 20 6f 70 6f 69 |t "^/\\*|" 0 opoi|
|00001c80| 6e 74 20 22 5b 20 09 5d | 2a 7d 5b 20 09 5d 2a 5c |nt "[ .]|*}[ .]*\|
|00001c90| 5c 28 24 5c 5c 7c 2f 5c | 5c 2a 5c 5c 29 22 20 73 |\($\\|/\|\*\\)" s|
|00001ca0| 65 61 72 63 68 2d 66 6f | 72 77 61 72 64 20 22 7d |earch-fo|rward "}|
|00001cb0| 22 20 22 5e 23 5b 20 09 | 5d 2a 65 6e 64 69 66 5b |" "^#[ .|]*endif[|
|00001cc0| 20 09 5d 2a 22 20 22 5e | 23 5b 20 09 5d 2a 65 6c | .]*" "^|#[ .]*el|
|00001cd0| 73 65 5b 20 09 5d 2a 22 | 20 37 20 22 20 09 22 20 |se[ .]*"| 7 " ." |
|00001ce0| 6e 69 6c 20 63 6f 6d 6d | 65 6e 74 2d 63 6f 6c 75 |nil comm|ent-colu|
|00001cf0| 6d 6e 5d 20 32 5d 5d 20 | 33 29 0a 28 64 65 66 61 |mn] 2]] |3).(defa|
|00001d00| 6c 69 61 73 20 27 63 2d | 66 69 6c 6c 2d 70 61 72 |lias 'c-|fill-par|
|00001d10| 61 67 72 61 70 68 20 23 | 5b 28 26 6f 70 74 69 6f |agraph #|[(&optio|
|00001d20| 6e 61 6c 20 61 72 67 29 | 20 22 c0 19 8a c2 79 88 |nal arg)| "....y.|
|00001d30| c3 c0 77 88 c4 0d 21 85 | 13 00 60 89 11 29 1e 06 |..w...!.|..`..)..|
|00001d40| 0e 07 c8 3d 83 9b 00 8a | c2 79 88 c4 c9 21 29 83 |...=....|.y...!).|
|00001d50| 9b 00 c0 0e 5c 6e cb 50 | 0e 5c 66 cb 50 1e 5c 66 |....\n.P|.\f.P.\f|
|00001d60| 1e 5c 6e 1e 0d 8a c2 79 | 88 6f 84 4b 00 c4 ce 21 |.\n....y|.o.K...!|
|00001d70| 83 4b 00 cf 79 88 82 3b | 00 c4 c9 21 84 54 00 d0 |.K..y..;|...!.T..|
|00001d80| 79 88 d1 d2 21 88 69 1e | 13 d4 c0 78 88 d5 69 d6 |y...!.i.|...x..i.|
|00001d90| 5a d7 5c 22 d8 d5 0e 13 | 69 5a d7 5c 22 51 16 0d |Z.\"....|iZ.\"Q..|
|00001da0| 29 8c 60 8a d0 79 88 c4 | ce 21 83 83 00 d0 79 88 |).`..y..|.!....y.|
|00001db0| 82 77 00 60 29 7d 88 0e | 0d 63 88 d9 0e 1a 21 88 |.w.`)}..|.c....!.|
|00001dc0| 65 65 0e 0d 47 5c 5c 7c | 2d 82 a2 01 0e 06 84 be |ee..G\\||-.......|
|00001dd0| 00 db 20 dc 3d 84 be 00 | 8a c2 79 88 d1 0d 8a c0 |.. .=...|..y.....|
|00001de0| 7f 88 60 29 dc 23 60 11 | 29 89 16 06 83 9e 01 8a |..`).#`.|).......|
|00001df0| c2 79 88 c4 dd 21 83 d3 | 00 d1 0d 21 88 d5 69 d7 |.y...!..|...!..i.|
|00001e00| 5c 22 82 17 01 0e 06 83 | db 00 d0 79 88 c0 7f 88 |\"......|...y....|
|00001e10| 69 1e 1e c2 79 88 60 df | e0 dc 21 dc 5c 22 88 60 |i...y.`.|..!.\".`|
|00001e20| 1e 21 c2 79 88 e2 0e 21 | 77 88 67 e3 3d 83 07 01 |.!.y...!|w.g.=...|
|00001e30| 68 e4 3d 83 07 01 e5 d0 | 21 88 60 29 7b df 0e 1e |h.=.....|!.`){...|
|00001e40| 21 88 60 c0 7f 88 60 7c | 88 29 29 0e 5c 6e cb 50 |!.`...`||.)).\n.P|
|00001e50| 0e 5c 66 cb 50 c2 1e 26 | 1e 5c 66 1e 5c 6e 1e 0d |.\f.P..&|.\f.\n..|
|00001e60| 8c 8a 09 83 35 01 09 62 | 88 82 39 01 e7 e8 21 88 |....5..b|..9...!.|
|00001e70| 69 1e 29 60 0e 29 16 26 | ea d7 0e 29 5c 22 88 2a |i.)`.).&|...)\".*|
|00001e80| 8a 09 83 52 01 09 d6 5c | 5c 62 88 eb ec c0 ed 23 |...R...\|\b.....#|
|00001e90| 88 d0 79 88 60 29 7d 88 | d9 0e 1a 21 88 8a 65 62 |..y.`)}.|...!..eb|
|00001ea0| 88 0e 26 c2 56 83 76 01 | 60 60 0e 26 5c 5c 7c 88 |..&.V.v.|``.&\\|.|
|00001eb0| 64 62 88 cf 79 88 eb ec | c0 ed 23 88 c2 79 88 c4 |db..y...|..#..y..|
|00001ec0| ee 21 85 99 01 0e 2f f0 | 5c 5c 1e 2f cf 79 88 f1 |.!..../.|\\./.y..|
|00001ed0| 60 64 5c 22 29 2e 06 82 | a2 01 d9 0e 1a 21 2a 87 |`d\")...|.....!*.|
|00001ee0| 22 20 5b 6e 69 6c 20 63 | 6f 6d 6d 65 6e 74 2d 73 |" [nil c|omment-s|
|00001ef0| 74 61 72 74 2d 70 6c 61 | 63 65 20 30 20 22 20 09 |tart-pla|ce 0 " .|
|00001f00| 5c 6e 22 20 6c 6f 6f 6b | 69 6e 67 2d 61 74 20 63 |\n" look|ing-at c|
|00001f10| 6f 6d 6d 65 6e 74 2d 73 | 74 61 72 74 2d 73 6b 69 |omment-s|tart-ski|
|00001f20| 70 20 66 69 72 73 74 2d | 6c 69 6e 65 20 6d 61 6a |p first-|line maj|
|00001f30| 6f 72 2d 6d 6f 64 65 20 | 63 2b 2b 2d 6d 6f 64 65 |or-mode |c++-mode|
|00001f40| 20 22 2e 2a 2f 2f 22 20 | 70 61 72 61 67 72 61 70 | ".*//" |paragrap|
|00001f50| 68 2d 73 74 61 72 74 20 | 22 5c 5c 7c 5e 5b 20 09 |h-start |"\\|^[ .|
|00001f60| 5d 2a 2f 5c 5c 2a 5b 20 | 09 5d 2a 24 5c 5c 7c 5e |]*/\\*[ |.]*$\\|^|
|00001f70| 5b 20 09 5d 2a 5c 5c 2a | 2f 5b 20 09 5d 2a 24 5c |[ .]*\\*|/[ .]*$\|
|00001f80| 5c 7c 5e 5b 20 09 2f 2a | 5d 2a 24 22 20 70 61 72 |\|^[ ./*|]*$" par|
|00001f90| 61 67 72 61 70 68 2d 73 | 65 70 61 72 61 74 65 20 |agraph-s|eparate |
|00001fa0| 66 69 6c 6c 2d 70 72 65 | 66 69 78 20 22 5b 20 09 |fill-pre|fix "[ .|
|00001fb0| 5d 2a 2f 2f 22 20 2d 31 | 20 31 20 72 65 2d 73 65 |]*//" -1| 1 re-se|
|00001fc0| 61 72 63 68 2d 66 6f 72 | 77 61 72 64 20 22 5b 20 |arch-for|ward "[ |
|00001fd0| 09 5d 2a 2f 2f 5b 20 09 | 5d 2a 22 20 65 6e 64 63 |.]*//[ .|]*" endc|
|00001fe0| 6f 6c 20 22 20 09 22 20 | 6d 61 6b 65 2d 73 74 72 |ol " ." |make-str|
|00001ff0| 69 6e 67 20 32 20 33 32 | 20 22 2f 2f 22 20 66 69 |ing 2 32| "//" fi|
|00002000| 6c 6c 2d 70 61 72 61 67 | 72 61 70 68 20 61 72 67 |ll-parag|raph arg|
|00002010| 20 63 61 6c 63 75 6c 61 | 74 65 2d 63 2d 69 6e 64 | calcula|te-c-ind|
|00002020| 65 6e 74 20 74 20 22 5b | 20 09 5d 2a 2f 5c 5c 2a |ent t "[| .]*/\\*|
|00002030| 2e 2a 5c 5c 2a 2f 22 20 | 6c 69 6e 65 2d 77 69 64 |.*\\*/" |line-wid|
|00002040| 74 68 20 6d 6f 76 65 2d | 74 6f 2d 63 6f 6c 75 6d |th move-|to-colum|
|00002050| 6e 20 63 61 6c 63 75 6c | 61 74 65 2d 63 2d 69 6e |n calcul|ate-c-in|
|00002060| 64 65 6e 74 2d 77 69 74 | 68 69 6e 2d 63 6f 6d 6d |dent-wit|hin-comm|
|00002070| 65 6e 74 20 6d 61 78 2d | 70 72 65 66 69 78 2d 65 |ent max-|prefix-e|
|00002080| 6e 64 20 22 20 09 2a 22 | 20 34 37 20 34 32 20 62 |nd " .*"| 47 42 b|
|00002090| 61 63 6b 77 61 72 64 2d | 63 68 61 72 20 63 68 61 |ackward-|char cha|
|000020a0| 72 73 2d 74 6f 2d 64 65 | 6c 65 74 65 20 73 65 61 |rs-to-de|lete sea|
|000020b0| 72 63 68 2d 62 61 63 6b | 77 61 72 64 20 22 2f 2a |rch-back|ward "/*|
|000020c0| 22 20 63 6f 6c 75 6d 6e | 20 69 6e 73 65 72 74 2d |" column| insert-|
|000020d0| 63 68 61 72 20 73 65 61 | 72 63 68 2d 66 6f 72 77 |char sea|rch-forw|
|000020e0| 61 72 64 20 22 2a 2f 22 | 20 6d 6f 76 65 20 22 5b |ard "*/"| move "[|
|000020f0| 20 09 5d 2a 5c 5c 2a 2f | 22 20 66 69 6c 6c 2d 63 | .]*\\*/|" fill-c|
|00002100| 6f 6c 75 6d 6e 20 39 39 | 39 39 20 66 69 6c 6c 2d |olumn 99|99 fill-|
|00002110| 72 65 67 69 6f 6e 2d 61 | 73 2d 70 61 72 61 67 72 |region-a|s-paragr|
|00002120| 61 70 68 5d 20 35 20 22 | 5c 0a 4c 69 6b 65 20 5c |aph] 5 "|\.Like \|
|00002130| 5c 5b 66 69 6c 6c 2d 70 | 61 72 61 67 72 61 70 68 |\[fill-p|aragraph|
|00002140| 5d 20 62 75 74 20 68 61 | 6e 64 6c 65 20 43 20 63 |] but ha|ndle C c|
|00002150| 6f 6d 6d 65 6e 74 73 2e | 0a 49 66 20 61 6e 79 20 |omments.|.If any |
|00002160| 6f 66 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 6c |of the c|urrent l|
|00002170| 69 6e 65 20 69 73 20 61 | 20 63 6f 6d 6d 65 6e 74 |ine is a| comment|
|00002180| 20 6f 72 20 77 69 74 68 | 69 6e 20 61 20 63 6f 6d | or with|in a com|
|00002190| 6d 65 6e 74 2c 0a 66 69 | 6c 6c 20 74 68 65 20 63 |ment,.fi|ll the c|
|000021a0| 6f 6d 6d 65 6e 74 20 6f | 72 20 74 68 65 20 70 61 |omment o|r the pa|
|000021b0| 72 61 67 72 61 70 68 20 | 6f 66 20 69 74 20 74 68 |ragraph |of it th|
|000021c0| 61 74 20 70 6f 69 6e 74 | 20 69 73 20 69 6e 2c 0a |at point| is in,.|
|000021d0| 70 72 65 73 65 72 76 69 | 6e 67 20 74 68 65 20 63 |preservi|ng the c|
|000021e0| 6f 6d 6d 65 6e 74 20 69 | 6e 64 65 6e 74 61 74 69 |omment i|ndentati|
|000021f0| 6f 6e 20 6f 72 20 6c 69 | 6e 65 2d 73 74 61 72 74 |on or li|ne-start|
|00002200| 69 6e 67 20 64 65 63 6f | 72 61 74 69 6f 6e 73 2e |ing deco|rations.|
|00002210| 22 20 22 50 22 5d 29 0a | 28 64 65 66 61 6c 69 61 |" "P"]).|(defalia|
|00002220| 73 20 27 65 6c 65 63 74 | 72 69 63 2d 63 2d 62 72 |s 'elect|ric-c-br|
|00002230| 61 63 65 20 23 5b 28 61 | 72 67 29 20 22 c0 19 5c |ace #[(a|rg) "..\|
|00002240| 6e 84 41 00 6c 83 41 00 | 8a c3 c0 78 88 6e 29 84 |n.A.l.A.|...x.n).|
|00002250| 1e 00 5c 66 83 41 00 c5 | 20 88 c6 20 88 0e 07 63 |..\f.A..| .. ...c|
|00002260| 88 c5 20 88 5c 66 83 33 | 00 c6 20 88 60 c8 5a 11 |.. .\f.3|.. .`.Z.|
|00002270| c5 20 88 8a 09 83 3c 00 | 09 54 62 88 c9 ca 21 88 |. ....<.|.Tb...!.|
|00002280| 29 09 83 52 00 8a 09 62 | 88 cb cc 5c 6e 21 21 29 |)..R...b|...\n!!)|
|00002290| 82 57 00 cb cc 5c 6e 21 | 21 29 87 22 20 5b 6e 69 |.W...\n!|!)." [ni|
|000022a0| 6c 20 69 6e 73 65 72 74 | 70 6f 73 20 61 72 67 20 |l insert|pos arg |
|000022b0| 22 20 09 22 20 63 2d 61 | 75 74 6f 2d 6e 65 77 6c |" ." c-a|uto-newl|
|000022c0| 69 6e 65 20 63 2d 69 6e | 64 65 6e 74 2d 6c 69 6e |ine c-in|dent-lin|
|000022d0| 65 20 6e 65 77 6c 69 6e | 65 20 6c 61 73 74 2d 63 |e newlin|e last-c|
|000022e0| 6f 6d 6d 61 6e 64 2d 63 | 68 61 72 20 32 20 64 65 |ommand-c|har 2 de|
|000022f0| 6c 65 74 65 2d 63 68 61 | 72 20 2d 31 20 73 65 6c |lete-cha|r -1 sel|
|00002300| 66 2d 69 6e 73 65 72 74 | 2d 63 6f 6d 6d 61 6e 64 |f-insert|-command|
|00002310| 20 70 72 65 66 69 78 2d | 6e 75 6d 65 72 69 63 2d | prefix-|numeric-|
|00002320| 76 61 6c 75 65 5d 20 33 | 20 22 5c 0a 49 6e 73 65 |value] 3| "\.Inse|
|00002330| 72 74 20 63 68 61 72 61 | 63 74 65 72 20 61 6e 64 |rt chara|cter and|
|00002340| 20 63 6f 72 72 65 63 74 | 20 6c 69 6e 65 27 73 20 | correct| line's |
|00002350| 69 6e 64 65 6e 74 61 74 | 69 6f 6e 2e 22 20 22 50 |indentat|ion." "P|
|00002360| 22 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 65 |"]).(def|alias 'e|
|00002370| 6c 65 63 74 72 69 63 2d | 63 2d 73 68 61 72 70 2d |lectric-|c-sharp-|
|00002380| 73 69 67 6e 20 23 5b 28 | 61 72 67 29 20 22 8a c0 |sign #[(|arg) "..|
|00002390| c1 78 88 6e 29 83 11 00 | c1 1a c3 5c 66 21 29 87 |.x.n)...|...\f!).|
|000023a0| c5 c6 5c 66 21 21 87 22 | 20 5b 22 20 09 22 20 6e |..\f!!."| [" ." n|
|000023b0| 69 6c 20 63 2d 61 75 74 | 6f 2d 6e 65 77 6c 69 6e |il c-aut|o-newlin|
|000023c0| 65 20 65 6c 65 63 74 72 | 69 63 2d 63 2d 74 65 72 |e electr|ic-c-ter|
|000023d0| 6d 69 6e 61 74 6f 72 20 | 61 72 67 20 73 65 6c 66 |minator |arg self|
|000023e0| 2d 69 6e 73 65 72 74 2d | 63 6f 6d 6d 61 6e 64 20 |-insert-|command |
|000023f0| 70 72 65 66 69 78 2d 6e | 75 6d 65 72 69 63 2d 76 |prefix-n|umeric-v|
|00002400| 61 6c 75 65 5d 20 33 20 | 22 5c 0a 49 6e 73 65 72 |alue] 3 |"\.Inser|
|00002410| 74 20 63 68 61 72 61 63 | 74 65 72 20 61 6e 64 20 |t charac|ter and |
|00002420| 63 6f 72 72 65 63 74 20 | 6c 69 6e 65 27 73 20 69 |correct |line's i|
|00002430| 6e 64 65 6e 74 61 74 69 | 6f 6e 2e 22 20 22 50 22 |ndentati|on." "P"|
|00002440| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 65 6c |]).(defa|lias 'el|
|00002450| 65 63 74 72 69 63 2d 63 | 2d 73 65 6d 69 20 23 5b |ectric-c|-semi #[|
|00002460| 28 61 72 67 29 20 22 08 | 83 08 00 c1 5c 6e 21 87 |(arg) ".|....\n!.|
|00002470| c3 c4 5c 6e 21 21 87 22 | 20 5b 63 2d 61 75 74 6f |..\n!!."| [c-auto|
|00002480| 2d 6e 65 77 6c 69 6e 65 | 20 65 6c 65 63 74 72 69 |-newline| electri|
|00002490| 63 2d 63 2d 74 65 72 6d | 69 6e 61 74 6f 72 20 61 |c-c-term|inator a|
|000024a0| 72 67 20 73 65 6c 66 2d | 69 6e 73 65 72 74 2d 63 |rg self-|insert-c|
|000024b0| 6f 6d 6d 61 6e 64 20 70 | 72 65 66 69 78 2d 6e 75 |ommand p|refix-nu|
|000024c0| 6d 65 72 69 63 2d 76 61 | 6c 75 65 5d 20 33 20 22 |meric-va|lue] 3 "|
|000024d0| 5c 0a 49 6e 73 65 72 74 | 20 63 68 61 72 61 63 74 |\.Insert| charact|
|000024e0| 65 72 20 61 6e 64 20 63 | 6f 72 72 65 63 74 20 6c |er and c|orrect l|
|000024f0| 69 6e 65 27 73 20 69 6e | 64 65 6e 74 61 74 69 6f |ine's in|dentatio|
|00002500| 6e 2e 22 20 22 50 22 5d | 29 0a 28 64 65 66 61 6c |n." "P"]|).(defal|
|00002510| 69 61 73 20 27 65 6c 65 | 63 74 72 69 63 2d 63 2d |ias 'ele|ctric-c-|
|00002520| 74 65 72 6d 69 6e 61 74 | 6f 72 20 23 5b 28 61 72 |terminat|or #[(ar|
|00002530| 67 29 20 22 c0 60 19 1a | 0b 84 81 00 6c 83 81 00 |g) ".`..|....l...|
|00002540| 8a c4 79 88 c5 c0 77 88 | 67 c6 55 86 54 00 0e 07 |..y...w.|g.U.T...|
|00002550| c8 3d 83 38 00 c9 0e 5c | 6e 21 84 38 00 8a cb c0 |.=.8...\|n!.8....|
|00002560| 77 88 c5 c0 77 88 60 09 | 57 29 86 54 00 cc 20 88 |w...w.`.|W).T.. .|
|00002570| cd 60 09 5c 22 1e 0e cf | 0e 0e 38 86 53 00 d0 0e |.`.\"...|..8.S...|
|00002580| 0e 38 86 53 00 d1 0e 0e | 38 29 29 84 81 00 0e 07 |.8.S....|8)).....|
|00002590| 63 88 d2 20 88 0e 13 83 | 73 00 d4 20 84 73 00 d5 |c.. ....|s.. .s..|
|000025a0| 20 88 60 d6 5a 12 d2 20 | 88 8a 5c 6e 83 7c 00 5c | .`.Z.. |..\n.|.\|
|000025b0| 6e 54 62 88 d7 d8 21 88 | 29 5c 6e 83 92 00 8a 5c |nTb...!.|)\n....\|
|000025c0| 6e 62 88 d9 da 0b 21 21 | 29 82 97 00 d9 da 0b 21 |nb....!!|)......!|
|000025d0| 21 2a 87 22 20 5b 6e 69 | 6c 20 65 6e 64 20 69 6e |!*." [ni|l end in|
|000025e0| 73 65 72 74 70 6f 73 20 | 61 72 67 20 30 20 22 20 |sertpos |arg 0 " |
|000025f0| 09 22 20 33 35 20 6c 61 | 73 74 2d 63 6f 6d 6d 61 |." 35 la|st-comma|
|00002600| 6e 64 2d 63 68 61 72 20 | 35 38 20 6c 6f 6f 6b 69 |nd-char |58 looki|
|00002610| 6e 67 2d 61 74 20 63 2d | 73 77 69 74 63 68 2d 6c |ng-at c-|switch-l|
|00002620| 61 62 65 6c 2d 72 65 67 | 65 78 70 20 22 61 2d 7a |abel-reg|exp "a-z|
|00002630| 41 2d 5a 30 2d 39 5f 24 | 22 20 62 65 67 69 6e 6e |A-Z0-9_$|" beginn|
|00002640| 69 6e 67 2d 6f 66 2d 64 | 65 66 75 6e 20 70 61 72 |ing-of-d|efun par|
|00002650| 73 65 2d 70 61 72 74 69 | 61 6c 2d 73 65 78 70 20 |se-parti|al-sexp |
|00002660| 70 70 73 20 33 20 34 20 | 35 20 63 2d 69 6e 64 65 |pps 3 4 |5 c-inde|
|00002670| 6e 74 2d 6c 69 6e 65 20 | 63 2d 61 75 74 6f 2d 6e |nt-line |c-auto-n|
|00002680| 65 77 6c 69 6e 65 20 63 | 2d 69 6e 73 69 64 65 2d |ewline c|-inside-|
|00002690| 70 61 72 65 6e 73 2d 70 | 20 6e 65 77 6c 69 6e 65 |parens-p| newline|
|000026a0| 20 32 20 64 65 6c 65 74 | 65 2d 63 68 61 72 20 2d | 2 delet|e-char -|
|000026b0| 31 20 73 65 6c 66 2d 69 | 6e 73 65 72 74 2d 63 6f |1 self-i|nsert-co|
|000026c0| 6d 6d 61 6e 64 20 70 72 | 65 66 69 78 2d 6e 75 6d |mmand pr|efix-num|
|000026d0| 65 72 69 63 2d 76 61 6c | 75 65 5d 20 33 20 22 5c |eric-val|ue] 3 "\|
|000026e0| 0a 49 6e 73 65 72 74 20 | 63 68 61 72 61 63 74 65 |.Insert |characte|
|000026f0| 72 20 61 6e 64 20 63 6f | 72 72 65 63 74 20 6c 69 |r and co|rrect li|
|00002700| 6e 65 27 73 20 69 6e 64 | 65 6e 74 61 74 69 6f 6e |ne's ind|entation|
|00002710| 2e 22 20 22 50 22 5d 29 | 0a 28 64 65 66 61 6c 69 |." "P"])|.(defali|
|00002720| 61 73 20 28 71 75 6f 74 | 65 20 63 2d 69 6e 73 69 |as (quot|e c-insi|
|00002730| 64 65 2d 70 61 72 65 6e | 73 2d 70 29 20 23 5b 6e |de-paren|s-p) #[n|
|00002740| 69 6c 20 22 c0 c1 c2 8f | 87 22 20 5b 6e 69 6c 20 |il "....|." [nil |
|00002750| 28 62 79 74 65 2d 63 6f | 64 65 20 22 8a 8c 60 c0 |(byte-co|de "..`.|
|00002760| 20 88 60 7d 88 64 62 88 | c1 60 c2 c3 23 86 15 00 | .`}.db.|.`..#...|
|00002770| 65 66 c4 55 2a 87 22 20 | 5b 62 65 67 69 6e 6e 69 |ef.U*." |[beginni|
|00002780| 6e 67 2d 6f 66 2d 64 65 | 66 75 6e 20 73 63 61 6e |ng-of-de|fun scan|
|00002790| 2d 6c 69 73 74 73 20 2d | 31 20 31 20 34 30 5d 20 |-lists -|1 1 40] |
|000027a0| 34 29 20 28 28 65 72 72 | 6f 72 29 29 5d 20 33 5d |4) ((err|or))] 3]|
|000027b0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 63 2d 69 |).(defal|ias 'c-i|
|000027c0| 6e 64 65 6e 74 2d 63 6f | 6d 6d 61 6e 64 20 23 5b |ndent-co|mmand #[|
|000027d0| 28 26 6f 70 74 69 6f 6e | 61 6c 20 77 68 6f 6c 65 |(&option|al whole|
|000027e0| 2d 65 78 70 29 20 22 08 | 83 3d 00 c1 20 c2 89 1b |-exp) ".|.=.. ...|
|000027f0| 1c 1d 8a 0e 06 83 14 00 | c7 79 88 8a c8 79 88 60 |........|.y...y.`|
|00002800| 14 29 60 5c 66 57 83 2e | 00 c9 c8 21 88 60 13 ca |.)`\fW..|...!.`..|
|00002810| c2 77 88 82 1b 00 29 0b | 5c 66 56 85 3b 00 cb 5c |.w....).|\fV.;..\|
|00002820| 66 0b 0d cc 24 2b 87 0e | 06 84 4f 00 8a cd c2 78 |f...$+..|..O....x|
|00002830| 88 6e 29 84 4f 00 ce 20 | 87 c1 20 87 22 20 5b 77 |.n).O.. |.. ." [w|
|00002840| 68 6f 6c 65 2d 65 78 70 | 20 63 2d 69 6e 64 65 6e |hole-exp| c-inden|
|00002850| 74 2d 6c 69 6e 65 20 6e | 69 6c 20 65 6e 64 20 62 |t-line n|il end b|
|00002860| 65 67 20 73 68 69 66 74 | 2d 61 6d 74 20 63 2d 74 |eg shift|-amt c-t|
|00002870| 61 62 2d 61 6c 77 61 79 | 73 2d 69 6e 64 65 6e 74 |ab-alway|s-indent|
|00002880| 20 30 20 31 20 66 6f 72 | 77 61 72 64 2d 73 65 78 | 0 1 for|ward-sex|
|00002890| 70 20 22 20 09 5c 6e 22 | 20 69 6e 64 65 6e 74 2d |p " .\n"| indent-|
|000028a0| 63 6f 64 65 2d 72 69 67 | 69 64 6c 79 20 22 23 22 |code-rig|idly "#"|
|000028b0| 20 22 20 09 22 20 69 6e | 73 65 72 74 2d 74 61 62 | " ." in|sert-tab|
|000028c0| 5d 20 35 20 22 5c 0a 49 | 6e 64 65 6e 74 20 63 75 |] 5 "\.I|ndent cu|
|000028d0| 72 72 65 6e 74 20 6c 69 | 6e 65 20 61 73 20 43 20 |rrent li|ne as C |
|000028e0| 63 6f 64 65 2c 20 6f 72 | 20 69 6e 20 73 6f 6d 65 |code, or| in some|
|000028f0| 20 63 61 73 65 73 20 69 | 6e 73 65 72 74 20 61 20 | cases i|nsert a |
|00002900| 74 61 62 20 63 68 61 72 | 61 63 74 65 72 2e 0a 49 |tab char|acter..I|
|00002910| 66 20 60 63 2d 74 61 62 | 2d 61 6c 77 61 79 73 2d |f `c-tab|-always-|
|00002920| 69 6e 64 65 6e 74 27 20 | 69 73 20 6e 6f 6e 2d 6e |indent' |is non-n|
|00002930| 69 6c 20 28 74 68 65 20 | 64 65 66 61 75 6c 74 29 |il (the |default)|
|00002940| 2c 20 61 6c 77 61 79 73 | 20 69 6e 64 65 6e 74 20 |, always| indent |
|00002950| 63 75 72 72 65 6e 74 20 | 6c 69 6e 65 2e 0a 4f 74 |current |line..Ot|
|00002960| 68 65 72 77 69 73 65 2c | 20 69 6e 64 65 6e 74 20 |herwise,| indent |
|00002970| 74 68 65 20 63 75 72 72 | 65 6e 74 20 6c 69 6e 65 |the curr|ent line|
|00002980| 20 6f 6e 6c 79 20 69 66 | 20 70 6f 69 6e 74 20 69 | only if| point i|
|00002990| 73 20 61 74 20 74 68 65 | 20 6c 65 66 74 20 6d 61 |s at the| left ma|
|000029a0| 72 67 69 6e 20 6f 72 0a | 69 6e 20 74 68 65 20 6c |rgin or.|in the l|
|000029b0| 69 6e 65 27 73 20 69 6e | 64 65 6e 74 61 74 69 6f |ine's in|dentatio|
|000029c0| 6e 3b 20 6f 74 68 65 72 | 77 69 73 65 20 69 6e 73 |n; other|wise ins|
|000029d0| 65 72 74 20 61 20 74 61 | 62 2e 0a 0a 41 20 6e 75 |ert a ta|b...A nu|
|000029e0| 6d 65 72 69 63 20 61 72 | 67 75 6d 65 6e 74 2c 20 |meric ar|gument, |
|000029f0| 72 65 67 61 72 64 6c 65 | 73 73 20 6f 66 20 69 74 |regardle|ss of it|
|00002a00| 73 20 76 61 6c 75 65 2c | 20 6d 65 61 6e 73 20 69 |s value,| means i|
|00002a10| 6e 64 65 6e 74 20 72 69 | 67 69 64 6c 79 20 61 6c |ndent ri|gidly al|
|00002a20| 6c 20 74 68 65 0a 6c 69 | 6e 65 73 20 6f 66 20 74 |l the.li|nes of t|
|00002a30| 68 65 20 65 78 70 72 65 | 73 73 69 6f 6e 20 73 74 |he expre|ssion st|
|00002a40| 61 72 74 69 6e 67 20 61 | 66 74 65 72 20 70 6f 69 |arting a|fter poi|
|00002a50| 6e 74 20 73 6f 20 74 68 | 61 74 20 74 68 69 73 20 |nt so th|at this |
|00002a60| 6c 69 6e 65 20 62 65 63 | 6f 6d 65 73 0a 70 72 6f |line bec|omes.pro|
|00002a70| 70 65 72 6c 79 20 69 6e | 64 65 6e 74 65 64 2e 20 |perly in|dented. |
|00002a80| 20 54 68 65 20 72 65 6c | 61 74 69 76 65 20 69 6e | The rel|ative in|
|00002a90| 64 65 6e 74 61 74 69 6f | 6e 20 61 6d 6f 6e 67 20 |dentatio|n among |
|00002aa0| 74 68 65 20 6c 69 6e 65 | 73 20 6f 66 20 74 68 65 |the line|s of the|
|00002ab0| 0a 65 78 70 72 65 73 73 | 69 6f 6e 20 61 72 65 20 |.express|ion are |
|00002ac0| 70 72 65 73 65 72 76 65 | 64 2e 22 20 22 50 22 5d |preserve|d." "P"]|
|00002ad0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 63 2d 69 |).(defal|ias 'c-i|
|00002ae0| 6e 64 65 6e 74 2d 6c 69 | 6e 65 20 23 5b 6e 69 6c |ndent-li|ne #[nil|
|00002af0| 20 22 c0 c1 21 c1 89 89 | 64 60 5a 1a 1b 1c 1d 1e | "..!...|d`Z.....|
|00002b00| 06 c7 79 88 60 15 0e 06 | c1 3d 83 5c 22 00 c8 20 |..y.`...|.=.\".. |
|00002b10| 16 06 82 d6 00 0e 06 c9 | 3d 83 30 00 ca 20 16 06 |........|=.0.. ..|
|00002b20| 82 d6 00 cb cc 21 83 3c | 00 c7 16 06 82 d6 00 cd |.....!.<|........|
|00002b30| c1 77 88 0e 06 3c 83 4b | 00 0e 06 40 16 06 cb 0e |.w...<.K|...@....|
|00002b40| 0e 21 84 64 00 cb cf 21 | 83 70 00 8a d0 d1 21 88 |.!.d...!|.p....!.|
|00002b50| cb d2 21 29 83 70 00 d1 | 0e 06 0e 13 5c 5c 5d 16 |..!).p..|....\\].|
|00002b60| 06 82 d6 00 cb d4 21 83 | 88 00 cb d5 21 84 88 00 |......!.|....!...|
|00002b70| 8a d6 20 88 c8 20 29 16 | 06 82 d6 00 cb d7 21 83 |.. .. ).|......!.|
|00002b80| a0 00 8a c1 75 88 d8 20 | 88 d6 20 88 c8 20 29 16 |....u.. |.. .. ).|
|00002b90| 06 82 d6 00 cb d9 21 83 | b9 00 8a da 20 29 83 b9 |......!.|.... )..|
|00002ba0| 00 8a da 20 88 c8 20 29 | 16 06 82 d6 00 67 db 55 |... .. )|.....g.U|
|00002bb0| 83 c9 00 0e 06 0e 1c 5a | 16 06 82 d6 00 67 dd 55 |.......Z|.....g.U|
|00002bc0| 83 d6 00 0e 06 0e 1e 5c | 5c 16 06 cd c1 77 88 0e |.......\|\....w..|
|00002bd0| 06 69 5a 89 14 c7 55 83 | f5 00 64 5c 6e 5a 60 56 |.iZ...U.|..d\nZ`V|
|00002be0| 83 5c 6e 01 64 5c 6e 5a | 62 88 82 5c 6e 01 0d 60 |.\n.d\nZ|b..\n..`|
|00002bf0| 7c 88 0e 06 6a 88 64 5c | 6e 5a 60 56 83 5c 6e 01 ||...j.d\|nZ`V.\n.|
|00002c00| 64 5c 6e 5a 62 88 5c 66 | 2d 87 22 20 5b 63 61 6c |d\nZb.\f|-." [cal|
|00002c10| 63 75 6c 61 74 65 2d 63 | 2d 69 6e 64 65 6e 74 20 |culate-c|-indent |
|00002c20| 6e 69 6c 20 70 6f 73 20 | 63 61 73 65 2d 66 6f 6c |nil pos |case-fol|
|00002c30| 64 2d 73 65 61 72 63 68 | 20 73 68 69 66 74 2d 61 |d-search| shift-a|
|00002c40| 6d 74 20 62 65 67 20 69 | 6e 64 65 6e 74 20 30 20 |mt beg i|ndent 0 |
|00002c50| 63 75 72 72 65 6e 74 2d | 69 6e 64 65 6e 74 61 74 |current-|indentat|
|00002c60| 69 6f 6e 20 74 20 63 61 | 6c 63 75 6c 61 74 65 2d |ion t ca|lculate-|
|00002c70| 63 2d 69 6e 64 65 6e 74 | 2d 77 69 74 68 69 6e 2d |c-indent|-within-|
|00002c80| 63 6f 6d 6d 65 6e 74 20 | 6c 6f 6f 6b 69 6e 67 2d |comment |looking-|
|00002c90| 61 74 20 22 5b 20 09 5d | 2a 23 22 20 22 20 09 22 |at "[ .]|*#" " ."|
|00002ca0| 20 63 2d 73 77 69 74 63 | 68 2d 6c 61 62 65 6c 2d | c-switc|h-label-|
|00002cb0| 72 65 67 65 78 70 20 22 | 5b 41 2d 5a 61 2d 7a 5d |regexp "|[A-Za-z]|
|00002cc0| 22 20 66 6f 72 77 61 72 | 64 2d 73 65 78 70 20 31 |" forwar|d-sexp 1|
|00002cd0| 20 22 3a 22 20 63 2d 6c | 61 62 65 6c 2d 6f 66 66 | ":" c-l|abel-off|
|00002ce0| 73 65 74 20 22 65 6c 73 | 65 5c 5c 62 22 20 22 65 |set "els|e\\b" "e|
|00002cf0| 6c 73 65 5c 5c 73 5f 22 | 20 63 2d 62 61 63 6b 77 |lse\\s_"| c-backw|
|00002d00| 61 72 64 2d 74 6f 2d 73 | 74 61 72 74 2d 6f 66 2d |ard-to-s|tart-of-|
|00002d10| 69 66 20 22 7d 5b 20 09 | 5d 2a 65 6c 73 65 22 20 |if "}[ .|]*else" |
|00002d20| 62 61 63 6b 77 61 72 64 | 2d 73 65 78 70 20 22 77 |backward|-sexp "w|
|00002d30| 68 69 6c 65 5c 5c 62 22 | 20 63 2d 62 61 63 6b 77 |hile\\b"| c-backw|
|00002d40| 61 72 64 2d 74 6f 2d 73 | 74 61 72 74 2d 6f 66 2d |ard-to-s|tart-of-|
|00002d50| 64 6f 20 31 32 35 20 63 | 2d 69 6e 64 65 6e 74 2d |do 125 c|-indent-|
|00002d60| 6c 65 76 65 6c 20 31 32 | 33 20 63 2d 62 72 61 63 |level 12|3 c-brac|
|00002d70| 65 2d 6f 66 66 73 65 74 | 5d 20 37 20 22 5c 0a 49 |e-offset|] 7 "\.I|
|00002d80| 6e 64 65 6e 74 20 63 75 | 72 72 65 6e 74 20 6c 69 |ndent cu|rrent li|
|00002d90| 6e 65 20 61 73 20 43 20 | 63 6f 64 65 2e 0a 52 65 |ne as C |code..Re|
|00002da0| 74 75 72 6e 20 74 68 65 | 20 61 6d 6f 75 6e 74 20 |turn the| amount |
|00002db0| 74 68 65 20 69 6e 64 65 | 6e 74 61 74 69 6f 6e 20 |the inde|ntation |
|00002dc0| 63 68 61 6e 67 65 64 20 | 62 79 2e 22 5d 29 0a 28 |changed |by."]).(|
|00002dd0| 64 65 66 61 6c 69 61 73 | 20 27 63 61 6c 63 75 6c |defalias| 'calcul|
|00002de0| 61 74 65 2d 63 2d 69 6e | 64 65 6e 74 20 23 5b 28 |ate-c-in|dent #[(|
|00002df0| 26 6f 70 74 69 6f 6e 61 | 6c 20 70 61 72 73 65 2d |&optiona|l parse-|
|00002e00| 73 74 61 72 74 29 20 22 | 8a c0 79 88 60 c1 89 89 |start) "|..y.`...|
|00002e10| 1a 1b 1c 1d 0e 06 83 18 | 00 0e 06 62 88 82 1b 00 |........|...b....|
|00002e20| c7 20 88 60 0d 57 83 31 | 00 60 16 06 c8 60 0d c0 |. .`.W.1|.`...`..|
|00002e30| 23 89 13 41 40 12 82 1b | 00 c9 0b 38 84 3d 00 ca |#..A@...|...8.=..|
|00002e40| 0b 38 83 43 00 ca 0b 38 | 82 50 02 5c 6e 84 ed 00 |.8.C...8|.P.\n...|
|00002e50| 0d 62 88 cb c1 77 88 67 | cc 55 83 58 00 c0 82 50 |.b...w.g|.U.X...P|
|00002e60| 02 cd 0e 06 86 5f 00 65 | 21 88 8a ce cf c1 d0 23 |....._.e|!......#|
|00002e70| 88 c1 89 1e 11 1e 12 8a | 6d 84 7f 00 d3 d4 21 84 |........|m.....!.|
|00002e80| 7f 00 d5 79 88 82 6f 00 | c1 d6 d7 8f 88 c0 79 88 |...y..o.|......y.|
|00002e90| d3 d8 21 29 83 93 00 0e | 19 82 e9 00 d3 da 21 83 |..!)....|......!.|
|00002ea0| e8 00 d3 db 21 83 e8 00 | c0 95 53 62 88 60 16 11 |....!...|..Sb.`..|
|00002eb0| c1 dc dd 8f 88 de c1 77 | 88 60 0d 57 83 e8 00 67 |.......w|.`.W...g|
|00002ec0| df 3e 84 e8 00 0e 11 62 | 88 c0 79 88 0e 12 84 de |.>.....b|..y.....|
|00002ed0| 00 e0 e1 0e 11 e2 23 83 | de 00 e0 e3 0e 11 e2 23 |......#.|.......#|
|00002ee0| 3f 89 16 12 83 c8 00 0e | 12 84 e8 00 0e 19 82 e9 |?.......|........|
|00002ef0| 00 c0 2b 82 50 02 5c 6e | 66 cc 55 84 fc 00 5c 6e |..+.P.\n|f.U...\n|
|00002f00| 54 62 88 69 82 50 02 0d | 62 88 cd 5c 6e 21 88 68 |Tb.i.P..|b..\n!.h|
|00002f10| e4 3d 84 5c 22 01 68 e5 | 3d 83 39 01 60 e6 5a 66 |.=.\".h.|=.9.`.Zf|
|00002f20| e7 3d 84 5c 22 01 60 e6 | 5a 66 7a e8 3e 83 39 01 |.=.\".`.|Zfz.>.9.|
|00002f30| 68 e4 3d 83 2f 01 e9 75 | 88 ea 5c 6e 21 88 c0 79 |h.=./..u|..\n!..y|
|00002f40| 88 cd 5c 6e 21 88 82 03 | 01 60 c1 1e 2b 1e 2c 0e |..\n!...|.`..+.,.|
|00002f50| 2b 84 7c 01 c0 79 88 6f | 83 55 01 60 16 2c e2 89 |+.|..y.o|.U.`.,..|
|00002f60| 16 2b 82 41 01 8a e9 75 | 88 68 ed 55 29 83 66 01 |.+.A...u|.h.U).f.|
|00002f70| e9 75 88 82 3f 01 67 ee | 55 83 75 01 e9 75 88 60 |.u..?.g.|U.u..u.`|
|00002f80| 16 2c 82 3f 01 e2 89 16 | 2b 83 44 01 0e 2c 62 88 |.,.?....|+.D..,b.|
|00002f90| 2a 68 ef 3e 84 b7 01 8a | 0d 62 88 cb c1 77 88 67 |*h.>....|.b...w.g|
|00002fa0| f0 55 29 84 b7 01 ea 5c | 6e 21 88 0e 31 69 8a 0d |.U)....\|n!..1i..|
|00002fb0| 62 88 cb c1 77 88 67 29 | cc 3d 83 b1 01 0e 32 82 |b...w.g)|.=....2.|
|00002fc0| b2 01 c0 5c 5c 5c 5c 82 | 50 02 5c 6e 62 88 8a d5 |...\\\\.|P.\nb...|
|00002fd0| 75 88 c0 1e 33 f4 c1 77 | 88 d3 f5 21 83 f8 01 67 |u...3..w|...!...g|
|00002fe0| ee 55 83 d7 01 d5 79 88 | 82 c1 01 67 f6 55 83 e9 |.U....y.|...g.U..|
|00002ff0| 01 e6 75 88 e0 e3 c1 d0 | 23 88 82 c1 01 8a c1 7f |..u.....|#.......|
|00003000| 88 60 16 33 29 e0 f7 21 | 88 82 c1 01 60 0d 57 85 |.`.3)..!|....`.W.|
|00003010| 1b 02 0e 33 60 56 83 0d | 02 f8 20 0e 39 5a 82 0e |...3`V..|.. .9Z..|
|00003020| 02 69 67 cc 55 83 19 02 | 0e 3a 82 1a 02 c0 5a 2a |.ig.U...|.:....Z*|
|00003030| 86 50 02 6e 83 32 02 0e | 3b c0 55 83 32 02 0e 3a |.P.n.2..|;.U.2..:|
|00003040| 0e 31 5c 5c 82 34 02 0e | 3b cb c1 78 88 6e 83 40 |.1\\.4..|;..x.n.@|
|00003050| 02 c0 82 42 02 0e 3c 68 | fd 3d 83 4c 02 fe e9 21 |...B..<h|.=.L...!|
|00003060| 88 f8 20 5c 5c 5c 5c 2d | 87 22 20 5b 30 20 6e 69 |.. \\\\-|." [0 ni|
|00003070| 6c 20 63 6f 6e 74 61 69 | 6e 69 6e 67 2d 73 65 78 |l contai|ning-sex|
|00003080| 70 20 73 74 61 74 65 20 | 63 61 73 65 2d 66 6f 6c |p state |case-fol|
|00003090| 64 2d 73 65 61 72 63 68 | 20 69 6e 64 65 6e 74 2d |d-search| indent-|
|000030a0| 70 6f 69 6e 74 20 70 61 | 72 73 65 2d 73 74 61 72 |point pa|rse-star|
|000030b0| 74 20 62 65 67 69 6e 6e | 69 6e 67 2d 6f 66 2d 64 |t beginn|ing-of-d|
|000030c0| 65 66 75 6e 20 70 61 72 | 73 65 2d 70 61 72 74 69 |efun par|se-parti|
|000030d0| 61 6c 2d 73 65 78 70 20 | 33 20 34 20 22 20 09 22 |al-sexp |3 4 " ."|
|000030e0| 20 31 32 33 20 63 2d 62 | 61 63 6b 77 61 72 64 2d | 123 c-b|ackward-|
|000030f0| 74 6f 2d 6e 6f 6e 63 6f | 6d 6d 65 6e 74 20 72 65 |to-nonco|mment re|
|00003100| 2d 73 65 61 72 63 68 2d | 62 61 63 6b 77 61 72 64 |-search-|backward|
|00003110| 20 22 5e 5b 5e 20 5c 66 | 09 5c 6e 23 5d 22 20 6d | "^[^ \f|.\n#]" m|
|00003120| 6f 76 65 20 6c 69 6d 20 | 63 6f 6d 6d 65 6e 74 20 |ove lim |comment |
|00003130| 6c 6f 6f 6b 69 6e 67 2d | 61 74 20 22 20 2a 5b 28 |looking-|at " *[(|
|00003140| 7b 7d 23 2f 5d 22 20 31 | 20 28 62 61 63 6b 77 61 |{}#/]" 1| (backwa|
|00003150| 72 64 2d 73 65 78 70 20 | 31 29 20 28 28 65 72 72 |rd-sexp |1) ((err|
|00003160| 6f 72 29 29 20 22 44 45 | 46 55 4e 5c 5c 62 22 20 |or)) "DE|FUN\\b" |
|00003170| 63 2d 61 72 67 64 65 63 | 6c 2d 69 6e 64 65 6e 74 |c-argdec|l-indent|
|00003180| 20 22 5c 5c 73 77 5c 5c | 7c 5c 5c 73 5f 22 20 22 | "\\sw\\||\\s_" "|
|00003190| 5b 5e 5c 22 5c 6e 3d 28 | 5d 2a 28 22 20 28 66 6f |[^\"\n=(|]*(" (fo|
|000031a0| 72 77 61 72 64 2d 73 65 | 78 70 20 31 29 20 28 28 |rward-se|xp 1) ((|
|000031b0| 65 72 72 6f 72 29 29 20 | 22 20 09 5c 66 22 20 28 |error)) |" .\f" (|
|000031c0| 34 34 20 35 39 29 20 73 | 65 61 72 63 68 2d 66 6f |44 59) s|earch-fo|
|000031d0| 72 77 61 72 64 20 22 2f | 2a 22 20 74 20 22 2a 2f |rward "/|*" t "*/|
|000031e0| 22 20 34 34 20 35 38 20 | 32 20 33 39 20 28 31 31 |" 44 58 |2 39 (11|
|000031f0| 39 20 39 35 29 20 2d 31 | 20 63 2d 62 61 63 6b 77 |9 95) -1| c-backw|
|00003200| 61 72 64 2d 74 6f 2d 73 | 74 61 72 74 2d 6f 66 2d |ard-to-s|tart-of-|
|00003210| 63 6f 6e 74 69 6e 75 65 | 64 2d 65 78 70 20 73 74 |continue|d-exp st|
|00003220| 6f 70 20 66 6f 75 6e 64 | 20 39 32 20 33 35 20 28 |op found| 92 35 (|
|00003230| 30 20 34 34 20 35 39 20 | 31 32 35 20 31 32 33 29 |0 44 59 |125 123)|
|00003240| 20 31 32 35 20 63 2d 63 | 6f 6e 74 69 6e 75 65 64 | 125 c-c|ontinued|
|00003250| 2d 73 74 61 74 65 6d 65 | 6e 74 2d 6f 66 66 73 65 |-stateme|nt-offse|
|00003260| 74 20 63 2d 63 6f 6e 74 | 69 6e 75 65 64 2d 62 72 |t c-cont|inued-br|
|00003270| 61 63 65 2d 6f 66 66 73 | 65 74 20 63 6f 6c 6f 6e |ace-offs|et colon|
|00003280| 2d 6c 69 6e 65 2d 65 6e | 64 20 22 20 09 5c 6e 22 |-line-en|d " .\n"|
|00003290| 20 22 23 5c 5c 7c 2f 5c | 5c 2a 5c 5c 7c 63 61 73 | "#\\|/\|\*\\|cas|
|000032a0| 65 5b 20 09 5c 6e 27 2f | 28 5d 2e 2a 3a 5c 5c 7c |e[ .\n'/|(].*:\\||
|000032b0| 5b 61 2d 7a 41 2d 5a 30 | 2d 39 5f 24 5d 2a 3a 22 |[a-zA-Z0|-9_$]*:"|
|000032c0| 20 34 37 20 22 3a 22 20 | 63 75 72 72 65 6e 74 2d | 47 ":" |current-|
|000032d0| 69 6e 64 65 6e 74 61 74 | 69 6f 6e 20 63 2d 6c 61 |indentat|ion c-la|
|000032e0| 62 65 6c 2d 6f 66 66 73 | 65 74 20 63 2d 62 72 61 |bel-offs|et c-bra|
|000032f0| 63 65 2d 6f 66 66 73 65 | 74 20 63 2d 69 6e 64 65 |ce-offse|t c-inde|
|00003300| 6e 74 2d 6c 65 76 65 6c | 20 63 2d 62 72 61 63 65 |nt-level| c-brace|
|00003310| 2d 69 6d 61 67 69 6e 61 | 72 79 2d 6f 66 66 73 65 |-imagina|ry-offse|
|00003320| 74 20 34 31 20 66 6f 72 | 77 61 72 64 2d 73 65 78 |t 41 for|ward-sex|
|00003330| 70 5d 20 35 20 22 5c 0a | 52 65 74 75 72 6e 20 61 |p] 5 "\.|Return a|
|00003340| 70 70 72 6f 70 72 69 61 | 74 65 20 69 6e 64 65 6e |ppropria|te inden|
|00003350| 74 61 74 69 6f 6e 20 66 | 6f 72 20 63 75 72 72 65 |tation f|or curre|
|00003360| 6e 74 20 6c 69 6e 65 20 | 61 73 20 43 20 63 6f 64 |nt line |as C cod|
|00003370| 65 2e 0a 49 6e 20 75 73 | 75 61 6c 20 63 61 73 65 |e..In us|ual case|
|00003380| 20 72 65 74 75 72 6e 73 | 20 61 6e 20 69 6e 74 65 | returns| an inte|
|00003390| 67 65 72 3a 20 74 68 65 | 20 63 6f 6c 75 6d 6e 20 |ger: the| column |
|000033a0| 74 6f 20 69 6e 64 65 6e | 74 20 74 6f 2e 0a 52 65 |to inden|t to..Re|
|000033b0| 74 75 72 6e 73 20 6e 69 | 6c 20 69 66 20 6c 69 6e |turns ni|l if lin|
|000033c0| 65 20 73 74 61 72 74 73 | 20 69 6e 73 69 64 65 20 |e starts| inside |
|000033d0| 61 20 73 74 72 69 6e 67 | 2c 20 74 20 69 66 20 69 |a string|, t if i|
|000033e0| 6e 20 61 20 63 6f 6d 6d | 65 6e 74 2e 22 5d 29 0a |n a comm|ent."]).|
|000033f0| 28 64 65 66 61 6c 69 61 | 73 20 27 63 61 6c 63 75 |(defalia|s 'calcu|
|00003400| 6c 61 74 65 2d 63 2d 69 | 6e 64 65 6e 74 2d 77 69 |late-c-i|ndent-wi|
|00003410| 74 68 69 6e 2d 63 6f 6d | 6d 65 6e 74 20 23 5b 28 |thin-com|ment #[(|
|00003420| 26 6f 70 74 69 6f 6e 61 | 6c 20 61 66 74 65 72 2d |&optiona|l after-|
|00003430| 73 74 61 72 29 20 22 c0 | 89 19 1a 8a c3 79 88 c4 |star) ".|.....y..|
|00003440| c0 77 88 67 c5 55 11 c6 | c0 78 88 60 12 c3 79 88 |.w.g.U..|.x.`..y.|
|00003450| c4 c0 77 88 0e 07 83 2c | 00 c8 c9 21 83 2c 00 ca |..w....,|...!.,..|
|00003460| cb 21 88 ca cc 5c 6e cd | 23 83 42 00 09 83 42 00 |.!...\n.|#.B...B.|
|00003470| 0e 07 84 42 00 c3 94 54 | 62 88 c8 ce 21 83 53 00 |...B...T|b...!.S.|
|00003480| 68 c5 55 83 53 00 69 54 | 82 54 00 69 2b 87 22 20 |h.U.S.iT|.T.i+." |
|00003490| 5b 6e 69 6c 20 73 74 61 | 72 2d 73 74 61 72 74 20 |[nil sta|r-start |
|000034a0| 65 6e 64 20 30 20 22 20 | 09 22 20 34 32 20 22 20 |end 0 " |." 42 " |
|000034b0| 09 5c 6e 22 20 61 66 74 | 65 72 2d 73 74 61 72 20 |.\n" aft|er-star |
|000034c0| 6c 6f 6f 6b 69 6e 67 2d | 61 74 20 22 5c 5c 2a 22 |looking-|at "\\*"|
|000034d0| 20 72 65 2d 73 65 61 72 | 63 68 2d 66 6f 72 77 61 | re-sear|ch-forwa|
|000034e0| 72 64 20 22 5c 5c 2a 5b | 20 09 5d 2a 22 20 22 2f |rd "\\*[| .]*" "/|
|000034f0| 5c 5c 2a 5b 20 09 5d 2a | 22 20 74 20 22 5b 20 09 |\\*[ .]*|" t "[ .|
|00003500| 5d 2a 24 22 5d 20 34 20 | 22 5c 0a 52 65 74 75 72 |]*$"] 4 |"\.Retur|
|00003510| 6e 20 74 68 65 20 69 6e | 64 65 6e 74 61 74 69 6f |n the in|dentatio|
|00003520| 6e 20 61 6d 6f 75 6e 74 | 20 66 6f 72 20 6c 69 6e |n amount| for lin|
|00003530| 65 20 69 6e 73 69 64 65 | 20 61 20 62 6c 6f 63 6b |e inside| a block|
|00003540| 20 63 6f 6d 6d 65 6e 74 | 2e 0a 4f 70 74 69 6f 6e | comment|..Option|
|00003550| 61 6c 20 61 72 67 20 41 | 46 54 45 52 2d 53 54 41 |al arg A|FTER-STA|
|00003560| 52 20 6d 65 61 6e 73 2c | 20 69 66 20 6c 69 6e 65 |R means,| if line|
|00003570| 73 20 69 6e 20 74 68 65 | 20 63 6f 6d 6d 65 6e 74 |s in the| comment|
|00003580| 20 68 61 76 65 20 61 20 | 6c 65 61 64 69 6e 67 20 | have a |leading |
|00003590| 73 74 61 72 2c 0a 72 65 | 74 75 72 6e 20 74 68 65 |star,.re|turn the|
|000035a0| 20 69 6e 64 65 6e 74 61 | 74 69 6f 6e 20 6f 66 20 | indenta|tion of |
|000035b0| 74 68 65 20 74 65 78 74 | 20 74 68 61 74 20 77 6f |the text| that wo|
|000035c0| 75 6c 64 20 66 6f 6c 6c | 6f 77 20 74 68 69 73 20 |uld foll|ow this |
|000035d0| 73 74 61 72 2e 22 5d 29 | 0a 28 62 79 74 65 2d 63 |star."])|.(byte-c|
|000035e0| 6f 64 65 20 22 c0 c1 c2 | 5c 22 88 c0 c3 c4 5c 22 |ode "...|\"....\"|
|000035f0| 87 22 20 5b 64 65 66 61 | 6c 69 61 73 20 63 2d 62 |." [defa|lias c-b|
|00003600| 61 63 6b 77 61 72 64 2d | 74 6f 2d 6e 6f 6e 63 6f |ackward-|to-nonco|
|00003610| 6d 6d 65 6e 74 20 23 5b | 28 6c 69 6d 29 20 22 c0 |mment #[|(lim) ".|
|00003620| 89 19 1a 09 3f 85 49 00 | c3 5c 66 78 88 60 12 60 |....?.I.|.\fx.`.`|
|00003630| 5c 66 c5 5c 5c 59 83 2b | 00 8a c6 75 88 c7 c8 21 |\f.\\Y.+|...u...!|
|00003640| 29 83 2b 00 c9 ca 5c 66 | cb 23 88 82 04 00 60 5c |).+...\f|.#....`\|
|00003650| 66 58 86 3e 00 8a cc 79 | 88 cd c0 77 88 c7 ce 21 |fX.>...y|...w...!|
|00003660| 29 3f 89 11 84 04 00 cc | 79 88 82 04 00 2a 87 22 |)?......|y....*."|
|00003670| 20 5b 6e 69 6c 20 73 74 | 6f 70 20 6f 70 6f 69 6e | [nil st|op opoin|
|00003680| 74 20 22 20 09 5c 6e 5c | 66 22 20 6c 69 6d 20 32 |t " .\n\|f" lim 2|
|00003690| 20 2d 32 20 6c 6f 6f 6b | 69 6e 67 2d 61 74 20 22 | -2 look|ing-at "|
|000036a0| 5c 5c 2a 2f 22 20 73 65 | 61 72 63 68 2d 62 61 63 |\\*/" se|arch-bac|
|000036b0| 6b 77 61 72 64 20 22 2f | 2a 22 20 6d 6f 76 65 20 |kward "/|*" move |
|000036c0| 30 20 22 20 09 22 20 22 | 23 22 5d 20 35 5d 20 63 |0 " ." "|#"] 5] c|
|000036d0| 2d 62 61 63 6b 77 61 72 | 64 2d 74 6f 2d 73 74 61 |-backwar|d-to-sta|
|000036e0| 72 74 2d 6f 66 2d 63 6f | 6e 74 69 6e 75 65 64 2d |rt-of-co|ntinued-|
|000036f0| 65 78 70 20 23 5b 28 6c | 69 6d 29 20 22 68 c0 3e |exp #[(l|im) "h.>|
|00003700| 83 5c 6e 00 c1 c2 21 88 | c3 79 88 60 5c 66 58 83 |.\n...!.|.y.`\fX.|
|00003710| 17 00 5c 66 54 62 88 c5 | c6 77 87 22 20 5b 28 34 |..\fTb..|.w." [(4|
|00003720| 31 20 33 34 29 20 66 6f | 72 77 61 72 64 2d 73 65 |1 34) fo|rward-se|
|00003730| 78 70 20 2d 31 20 30 20 | 6c 69 6d 20 22 20 09 22 |xp -1 0 |lim " ."|
|00003740| 20 6e 69 6c 5d 20 32 5d | 5d 20 33 29 0a 28 64 65 | nil] 2]|] 3).(de|
|00003750| 66 61 6c 69 61 73 20 27 | 63 2d 62 61 63 6b 77 61 |falias '|c-backwa|
|00003760| 72 64 2d 74 6f 2d 73 74 | 61 72 74 2d 6f 66 2d 69 |rd-to-st|art-of-i|
|00003770| 66 20 23 5b 28 26 6f 70 | 74 69 6f 6e 61 6c 20 6c |f #[(&op|tional l|
|00003780| 69 6d 69 74 29 20 22 08 | 84 0b 00 8a c1 20 88 60 |imit) ".|..... .`|
|00003790| 29 10 c2 c3 1c 1d 6f 3f | 85 45 00 0d c6 55 3f 85 |).....o?|.E...U?.|
|000037a0| 45 00 c7 c2 21 88 c8 c9 | 21 83 2b 00 0d 54 15 82 |E...!...|!.+..T..|
|000037b0| 0f 00 c8 ca 21 83 37 00 | 0d 53 15 82 0f 00 60 08 |....!.7.|.S....`.|
|000037c0| 57 83 0f 00 c6 15 08 62 | 88 82 0f 00 2a 87 22 20 |W......b|....*." |
|000037d0| 5b 6c 69 6d 69 74 20 62 | 65 67 69 6e 6e 69 6e 67 |[limit b|eginning|
|000037e0| 2d 6f 66 2d 64 65 66 75 | 6e 20 31 20 6e 69 6c 20 |-of-defu|n 1 nil |
|000037f0| 63 61 73 65 2d 66 6f 6c | 64 2d 73 65 61 72 63 68 |case-fol|d-search|
|00003800| 20 69 66 2d 6c 65 76 65 | 6c 20 30 20 62 61 63 6b | if-leve|l 0 back|
|00003810| 77 61 72 64 2d 73 65 78 | 70 20 6c 6f 6f 6b 69 6e |ward-sex|p lookin|
|00003820| 67 2d 61 74 20 22 65 6c | 73 65 5c 5c 62 22 20 22 |g-at "el|se\\b" "|
|00003830| 69 66 5c 5c 62 22 5d 20 | 32 20 22 5c 0a 4d 6f 76 |if\\b"] |2 "\.Mov|
|00003840| 65 20 74 6f 20 74 68 65 | 20 73 74 61 72 74 20 6f |e to the| start o|
|00003850| 66 20 74 68 65 20 6c 61 | 73 74 20 5c 22 75 6e 62 |f the la|st \"unb|
|00003860| 61 6c 61 6e 63 65 64 5c | 22 20 60 69 66 27 2e 22 |alanced\|" `if'."|
|00003870| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 63 2d |]).(defa|lias 'c-|
|00003880| 62 61 63 6b 77 61 72 64 | 2d 74 6f 2d 73 74 61 72 |backward|-to-star|
|00003890| 74 2d 6f 66 2d 64 6f 20 | 23 5b 28 26 6f 70 74 69 |t-of-do |#[(&opti|
|000038a0| 6f 6e 61 6c 20 6c 69 6d | 69 74 29 20 22 08 84 0b |onal lim|it) "...|
|000038b0| 00 8a c1 20 88 60 29 10 | c2 60 c3 1c 1d 1e 06 5c |... .`).|.`.....\|
|000038c0| 66 84 6b 00 60 1e 07 c3 | c8 c9 8f 88 5c 66 84 67 |f.k.`...|....\f.g|
|000038d0| 00 ca cb 21 83 2d 00 cc | 14 82 67 00 8a cd ce 21 |...!.-..|..g....!|
|000038e0| 88 0e 06 84 3d 00 68 cf | 55 86 53 00 d0 d1 0e 07 |....=.h.|U.S.....|
|000038f0| c2 0e 06 83 51 00 68 cf | 55 84 51 00 d2 82 52 00 |....Q.h.|U.Q...R.|
|00003900| ce 24 29 83 5c 5c 00 d3 | 14 82 67 00 c3 16 06 60 |.$).\\..|..g....`|
|00003910| 08 57 83 67 00 d3 14 29 | 82 12 00 5c 66 cc 3d 83 |.W.g...)|...\f.=.|
|00003920| 75 00 c2 82 79 00 0d 62 | 88 c3 2b 87 22 20 5b 6c |u...y..b|..+." [l|
|00003930| 69 6d 69 74 20 62 65 67 | 69 6e 6e 69 6e 67 2d 6f |imit beg|inning-o|
|00003940| 66 2d 64 65 66 75 6e 20 | 74 20 6e 69 6c 20 64 6f |f-defun |t nil do|
|00003950| 6e 65 20 73 74 61 72 74 | 70 6f 73 20 66 69 72 73 |ne start|pos firs|
|00003960| 74 20 6e 65 78 74 2d 73 | 74 61 72 74 20 28 62 61 |t next-s|tart (ba|
|00003970| 63 6b 77 61 72 64 2d 73 | 65 78 70 20 31 29 20 28 |ckward-s|exp 1) (|
|00003980| 28 65 72 72 6f 72 20 28 | 62 79 74 65 2d 63 6f 64 |(error (|byte-cod|
|00003990| 65 20 22 c0 11 c0 87 22 | 20 5b 66 61 69 6c 20 64 |e "...."| [fail d|
|000039a0| 6f 6e 65 5d 20 31 29 29 | 29 20 6c 6f 6f 6b 69 6e |one] 1))|) lookin|
|000039b0| 67 2d 61 74 20 22 64 6f | 5c 5c 62 22 20 73 75 63 |g-at "do|\\b" suc|
|000039c0| 63 65 65 64 20 66 6f 72 | 77 61 72 64 2d 73 65 78 |ceed for|ward-sex|
|000039d0| 70 20 31 20 31 32 35 20 | 73 65 61 72 63 68 2d 66 |p 1 125 |search-f|
|000039e0| 6f 72 77 61 72 64 20 22 | 3b 22 20 32 20 66 61 69 |orward "|;" 2 fai|
|000039f0| 6c 5d 20 36 20 22 5c 0a | 49 66 20 70 6f 69 6e 74 |l] 6 "\.|If point|
|00003a00| 20 66 6f 6c 6c 6f 77 73 | 20 61 20 60 64 6f 27 20 | follows| a `do' |
|00003a10| 73 74 61 74 65 6d 65 6e | 74 2c 20 6d 6f 76 65 20 |statemen|t, move |
|00003a20| 74 6f 20 62 65 67 69 6e | 6e 69 6e 67 20 6f 66 20 |to begin|ning of |
|00003a30| 69 74 20 61 6e 64 20 72 | 65 74 75 72 6e 20 74 2e |it and r|eturn t.|
|00003a40| 0a 4f 74 68 65 72 77 69 | 73 65 20 72 65 74 75 72 |.Otherwi|se retur|
|00003a50| 6e 20 6e 69 6c 20 61 6e | 64 20 64 6f 6e 27 74 20 |n nil an|d don't |
|00003a60| 6d 6f 76 65 20 70 6f 69 | 6e 74 2e 22 5d 29 0a 28 |move poi|nt."]).(|
|00003a70| 64 65 66 61 6c 69 61 73 | 20 27 63 2d 62 65 67 69 |defalias| 'c-begi|
|00003a80| 6e 6e 69 6e 67 2d 6f 66 | 2d 73 74 61 74 65 6d 65 |nning-of|-stateme|
|00003a90| 6e 74 20 23 5b 28 63 6f | 75 6e 74 29 20 22 60 c0 |nt #[(co|unt) "`.|
|00003aa0| 19 1a 8a c3 20 88 c4 60 | 5c 6e c0 89 24 11 29 c5 |.... ..`|\n..$.).|
|00003ab0| 09 38 84 36 00 c6 09 38 | 84 36 00 c7 c8 0e 09 50 |.8.6...8|.6.....P|
|00003ac0| 21 84 36 00 8a ca c0 78 | 88 60 cb 5a 62 88 c7 cc |!.6....x|.`.Zb...|
|00003ad0| 21 29 83 3e 00 cd 0e 0e | 5b 21 82 64 00 0e 0e cf |!).>....|[!.d....|
|00003ae0| 56 83 51 00 d0 20 88 0e | 0e 53 89 16 0e 82 40 00 |V.Q.. ..|.S....@.|
|00003af0| 0e 0e cf 57 85 64 00 d1 | 20 88 0e 0e 54 89 16 0e |...W.d..| ...T...|
|00003b00| 82 53 00 2a 87 22 20 5b | 6e 69 6c 20 73 74 61 74 |.S.*." [|nil stat|
|00003b10| 65 20 68 65 72 65 20 62 | 65 67 69 6e 6e 69 6e 67 |e here b|eginning|
|00003b20| 2d 6f 66 2d 64 65 66 75 | 6e 20 70 61 72 73 65 2d |-of-defu|n parse-|
|00003b30| 70 61 72 74 69 61 6c 2d | 73 65 78 70 20 33 20 34 |partial-|sexp 3 4|
|00003b40| 20 6c 6f 6f 6b 69 6e 67 | 2d 61 74 20 22 5b 20 09 | looking|-at "[ .|
|00003b50| 5d 2a 22 20 63 6f 6d 6d | 65 6e 74 2d 73 74 61 72 |]*" comm|ent-star|
|00003b60| 74 2d 73 6b 69 70 20 22 | 20 09 22 20 32 20 22 5c |t-skip "| ." 2 "\|
|00003b70| 5c 2a 2f 22 20 66 6f 72 | 77 61 72 64 2d 73 65 6e |\*/" for|ward-sen|
|00003b80| 74 65 6e 63 65 20 63 6f | 75 6e 74 20 30 20 63 2d |tence co|unt 0 c-|
|00003b90| 62 65 67 69 6e 6e 69 6e | 67 2d 6f 66 2d 73 74 61 |beginnin|g-of-sta|
|00003ba0| 74 65 6d 65 6e 74 2d 31 | 20 63 2d 65 6e 64 2d 6f |tement-1| c-end-o|
|00003bb0| 66 2d 73 74 61 74 65 6d | 65 6e 74 2d 31 5d 20 36 |f-statem|ent-1] 6|
|00003bc0| 20 22 5c 0a 47 6f 20 74 | 6f 20 74 68 65 20 62 65 | "\.Go t|o the be|
|00003bd0| 67 69 6e 6e 69 6e 67 20 | 6f 66 20 74 68 65 20 69 |ginning |of the i|
|00003be0| 6e 6e 65 72 6d 6f 73 74 | 20 43 20 73 74 61 74 65 |nnermost| C state|
|00003bf0| 6d 65 6e 74 2e 0a 57 69 | 74 68 20 70 72 65 66 69 |ment..Wi|th prefi|
|00003c00| 78 20 61 72 67 2c 20 67 | 6f 20 62 61 63 6b 20 4e |x arg, g|o back N|
|00003c10| 20 2d 20 31 20 73 74 61 | 74 65 6d 65 6e 74 73 2e | - 1 sta|tements.|
|00003c20| 20 20 49 66 20 61 6c 72 | 65 61 64 79 20 61 74 20 | If alr|eady at |
|00003c30| 74 68 65 20 62 65 67 69 | 6e 6e 69 6e 67 20 6f 66 |the begi|nning of|
|00003c40| 20 61 0a 73 74 61 74 65 | 6d 65 6e 74 20 74 68 65 | a.state|ment the|
|00003c50| 6e 20 67 6f 20 74 6f 20 | 74 68 65 20 62 65 67 69 |n go to |the begi|
|00003c60| 6e 6e 69 6e 67 20 6f 66 | 20 74 68 65 20 70 72 65 |nning of| the pre|
|00003c70| 63 65 64 69 6e 67 20 6f | 6e 65 2e 0a 49 66 20 77 |ceding o|ne..If w|
|00003c80| 69 74 68 69 6e 20 61 20 | 73 74 72 69 6e 67 20 6f |ithin a |string o|
|00003c90| 72 20 63 6f 6d 6d 65 6e | 74 2c 20 6f 72 20 6e 65 |r commen|t, or ne|
|00003ca0| 78 74 20 74 6f 20 61 20 | 63 6f 6d 6d 65 6e 74 20 |xt to a |comment |
|00003cb0| 28 6f 6e 6c 79 20 77 68 | 69 74 65 73 70 61 63 65 |(only wh|itespace|
|00003cc0| 20 62 65 74 77 65 65 6e | 29 2c 0a 6d 6f 76 65 20 | between|),.move |
|00003cd0| 62 79 20 73 65 6e 74 65 | 6e 63 65 73 20 69 6e 73 |by sente|nces ins|
|00003ce0| 74 65 61 64 20 6f 66 20 | 73 74 61 74 65 6d 65 6e |tead of |statemen|
|00003cf0| 74 73 2e 22 20 22 70 22 | 5d 29 0a 28 64 65 66 61 |ts." "p"|]).(defa|
|00003d00| 6c 69 61 73 20 27 63 2d | 65 6e 64 2d 6f 66 2d 73 |lias 'c-|end-of-s|
|00003d10| 74 61 74 65 6d 65 6e 74 | 20 23 5b 28 63 6f 75 6e |tatement| #[(coun|
|00003d20| 74 29 20 22 c0 09 5b 21 | 87 22 20 5b 63 2d 62 65 |t) "..[!|." [c-be|
|00003d30| 67 69 6e 6e 69 6e 67 2d | 6f 66 2d 73 74 61 74 65 |ginning-|of-state|
|00003d40| 6d 65 6e 74 20 63 6f 75 | 6e 74 5d 20 32 20 22 5c |ment cou|nt] 2 "\|
|00003d50| 0a 47 6f 20 74 6f 20 74 | 68 65 20 65 6e 64 20 6f |.Go to t|he end o|
|00003d60| 66 20 74 68 65 20 69 6e | 6e 65 72 6d 6f 73 74 20 |f the in|nermost |
|00003d70| 43 20 73 74 61 74 65 6d | 65 6e 74 2e 0a 57 69 74 |C statem|ent..Wit|
|00003d80| 68 20 70 72 65 66 69 78 | 20 61 72 67 2c 20 67 6f |h prefix| arg, go|
|00003d90| 20 66 6f 72 77 61 72 64 | 20 4e 20 2d 20 31 20 73 | forward| N - 1 s|
|00003da0| 74 61 74 65 6d 65 6e 74 | 73 2e 0a 4d 6f 76 65 20 |tatement|s..Move |
|00003db0| 66 6f 72 77 61 72 64 20 | 74 6f 20 65 6e 64 20 6f |forward |to end o|
|00003dc0| 66 20 74 68 65 20 6e 65 | 78 74 20 73 74 61 74 65 |f the ne|xt state|
|00003dd0| 6d 65 6e 74 20 69 66 20 | 61 6c 72 65 61 64 79 20 |ment if |already |
|00003de0| 61 74 20 65 6e 64 2e 0a | 49 66 20 77 69 74 68 69 |at end..|If withi|
|00003df0| 6e 20 61 20 73 74 72 69 | 6e 67 20 6f 72 20 63 6f |n a stri|ng or co|
|00003e00| 6d 6d 65 6e 74 2c 20 6d | 6f 76 65 20 62 79 20 73 |mment, m|ove by s|
|00003e10| 65 6e 74 65 6e 63 65 73 | 20 69 6e 73 74 65 61 64 |entences| instead|
|00003e20| 20 6f 66 20 73 74 61 74 | 65 6d 65 6e 74 73 2e 22 | of stat|ements."|
|00003e30| 20 22 70 22 5d 29 0a 28 | 62 79 74 65 2d 63 6f 64 | "p"]).(|byte-cod|
|00003e40| 65 20 22 c0 c1 c2 5c 22 | 88 c0 c3 c4 5c 22 87 22 |e "...\"|....\"."|
|00003e50| 20 5b 64 65 66 61 6c 69 | 61 73 20 63 2d 62 65 67 | [defali|as c-beg|
|00003e60| 69 6e 6e 69 6e 67 2d 6f | 66 2d 73 74 61 74 65 6d |inning-o|f-statem|
|00003e70| 65 6e 74 2d 31 20 23 5b | 6e 69 6c 20 22 60 c0 19 |ent-1 #[|nil "`..|
|00003e80| 1a c3 c4 c5 8f 2a 87 22 | 20 5b 74 20 66 69 72 73 |.....*."| [t firs|
|00003e90| 74 20 6c 61 73 74 2d 62 | 65 67 69 6e 20 6e 69 6c |t last-b|egin nil|
|00003ea0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 6f 84 1b | (byte-c|ode "o..|
|00003eb0| 00 c0 c1 21 88 5c 6e 84 | 14 00 c3 c4 0d c6 23 84 |...!.\n.|......#.|
|00003ec0| 1b 00 60 15 c7 12 82 00 | 00 0d 62 87 22 20 5b 62 |..`.....|..b." [b|
|00003ed0| 61 63 6b 77 61 72 64 2d | 73 65 78 70 20 31 20 66 |ackward-|sexp 1 f|
|00003ee0| 69 72 73 74 20 72 65 2d | 73 65 61 72 63 68 2d 66 |irst re-|search-f|
|00003ef0| 6f 72 77 61 72 64 20 22 | 5b 3b 7b 7d 5d 22 20 6c |orward "|[;{}]" l|
|00003f00| 61 73 74 2d 62 65 67 69 | 6e 20 74 20 6e 69 6c 5d |ast-begi|n t nil]|
|00003f10| 20 34 29 20 28 28 65 72 | 72 6f 72 20 28 62 79 74 | 4) ((er|ror (byt|
|00003f20| 65 2d 63 6f 64 65 20 22 | 08 83 08 00 c1 c2 21 87 |e-code "|......!.|
|00003f30| 0b 62 87 22 20 5b 66 69 | 72 73 74 20 62 61 63 6b |.b." [fi|rst back|
|00003f40| 77 61 72 64 2d 75 70 2d | 6c 69 73 74 20 31 20 6c |ward-up-|list 1 l|
|00003f50| 61 73 74 2d 62 65 67 69 | 6e 5d 20 32 29 29 29 5d |ast-begi|n] 2)))]|
|00003f60| 20 33 5d 20 63 2d 65 6e | 64 2d 6f 66 2d 73 74 61 | 3] c-en|d-of-sta|
|00003f70| 74 65 6d 65 6e 74 2d 31 | 20 23 5b 6e 69 6c 20 22 |tement-1| #[nil "|
|00003f80| c0 c1 c2 8f 87 22 20 5b | 6e 69 6c 20 28 62 79 74 |....." [|nil (byt|
|00003f90| 65 2d 63 6f 64 65 20 22 | 6d 84 19 00 60 18 c1 c2 |e-code "|m...`...|
|00003fa0| 21 88 60 1b 8a 08 62 88 | c4 c5 0b c6 23 2b 83 00 |!.`...b.|....#+..|
|00003fb0| 00 c7 c8 21 88 c2 75 87 | 22 20 5b 62 65 67 20 66 |...!..u.|" [beg f|
|00003fc0| 6f 72 77 61 72 64 2d 73 | 65 78 70 20 31 20 65 6e |orward-s|exp 1 en|
|00003fd0| 64 20 72 65 2d 73 65 61 | 72 63 68 2d 66 6f 72 77 |d re-sea|rch-forw|
|00003fe0| 61 72 64 20 22 5b 3b 7b | 7d 5d 22 20 74 20 72 65 |ard "[;{|}]" t re|
|00003ff0| 2d 73 65 61 72 63 68 2d | 62 61 63 6b 77 61 72 64 |-search-|backward|
|00004000| 20 22 5b 3b 7d 5d 22 5d | 20 34 29 20 28 28 65 72 | "[;}]"]| 4) ((er|
|00004010| 72 6f 72 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |ror (byt|e-code "|
|00004020| 60 18 c1 c2 21 88 60 1b | 08 62 88 c4 c5 0b c6 23 |`...!.`.|.b.....#|
|00004030| 2a 87 22 20 5b 62 65 67 | 20 62 61 63 6b 77 61 72 |*." [beg| backwar|
|00004040| 64 2d 75 70 2d 6c 69 73 | 74 20 2d 31 20 65 6e 64 |d-up-lis|t -1 end|
|00004050| 20 73 65 61 72 63 68 2d | 66 6f 72 77 61 72 64 20 | search-|forward |
|00004060| 22 3b 22 20 6d 6f 76 65 | 5d 20 34 29 29 29 5d 20 |";" move|] 4)))] |
|00004070| 33 5d 5d 20 33 29 0a 28 | 64 65 66 61 6c 69 61 73 |3]] 3).(|defalias|
|00004080| 20 27 6d 61 72 6b 2d 63 | 2d 66 75 6e 63 74 69 6f | 'mark-c|-functio|
|00004090| 6e 20 23 5b 6e 69 6c 20 | 22 c0 60 21 88 c1 20 88 |n #[nil |".`!.. .|
|000040a0| c0 60 c2 c3 23 88 c4 20 | 88 c5 20 87 22 20 5b 70 |.`..#.. |.. ." [p|
|000040b0| 75 73 68 2d 6d 61 72 6b | 20 65 6e 64 2d 6f 66 2d |ush-mark| end-of-|
|000040c0| 64 65 66 75 6e 20 6e 69 | 6c 20 74 20 62 65 67 69 |defun ni|l t begi|
|000040d0| 6e 6e 69 6e 67 2d 6f 66 | 2d 64 65 66 75 6e 20 62 |nning-of|-defun b|
|000040e0| 61 63 6b 77 61 72 64 2d | 70 61 72 61 67 72 61 70 |ackward-|paragrap|
|000040f0| 68 5d 20 34 20 22 5c 0a | 50 75 74 20 6d 61 72 6b |h] 4 "\.|Put mark|
|00004100| 20 61 74 20 65 6e 64 20 | 6f 66 20 43 20 66 75 6e | at end |of C fun|
|00004110| 63 74 69 6f 6e 2c 20 70 | 6f 69 6e 74 20 61 74 20 |ction, p|oint at |
|00004120| 62 65 67 69 6e 6e 69 6e | 67 2e 22 20 6e 69 6c 5d |beginnin|g." nil]|
|00004130| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 69 6e 64 |).(defal|ias 'ind|
|00004140| 65 6e 74 2d 63 2d 65 78 | 70 20 23 5b 28 26 6f 70 |ent-c-ex|p #[(&op|
|00004150| 74 69 6f 6e 61 6c 20 65 | 6e 64 70 6f 73 29 20 22 |tional e|ndpos) "|
|00004160| c0 43 19 60 1a 0b 83 24 | 00 c0 1c 8a c5 75 88 c6 |.C.`...$|.....u..|
|00004170| 20 88 60 14 29 5c 66 12 | 8c 5c 66 60 7d 88 c0 c7 | .`.)\f.|.\f`}...|
|00004180| c8 8f 2a 82 25 00 60 43 | 1e 09 c0 1e 5c 6e c0 1e |..*.%.`C|....\n..|
|00004190| 0b c0 1e 5c 66 c0 1e 0d | c0 1e 0e c0 1e 0f c0 1e |...\f...|........|
|000041a0| 10 c0 1e 11 c0 1e 12 c0 | 1e 13 c0 1e 14 c0 1e 15 |........|........|
|000041b0| c0 1e 16 d7 1e 18 8a d9 | c5 21 88 29 8a 60 1e 1a |........|.!.).`..|
|000041c0| db 0e 1c 8a c0 7f 88 60 | 29 dd 23 83 9a 00 8a d7 |.......`|).#.....|
|000041d0| 94 62 88 de c0 78 88 6e | 29 84 9a 00 df 0e 1a 60 |.b...x.n|)......`|
|000041e0| c0 89 0e 0e 25 1e 20 e1 | 0e 20 38 3f 85 90 00 e2 |....%. .|. 8?....|
|000041f0| 0e 20 38 3f 29 83 9a 00 | e3 20 88 d7 79 88 2a 8a |. 8?)...|. ..y.*.|
|00004200| c0 16 5c 66 6d 3f 85 3e | 03 0b 83 ae 00 60 0b 57 |..\fm?.>|.....`.W|
|00004210| 82 b1 00 0e 5c 66 3f 85 | 3e 03 0e 18 16 15 c0 16 |....\f?.|>.......|
|00004220| 0d 0e 0d 84 2c 01 6d 83 | cb 00 dd 89 16 5c 66 84 |....,.m.|.....\f.|
|00004230| 2c 01 0e 0e 16 0f df 60 | c0 7f 88 60 c0 89 0e 0e |,......`|...`....|
|00004240| 25 89 16 0e 40 16 18 0e | 0e 41 41 40 83 f9 00 0e |%...@...|.AA@....|
|00004250| 0e 41 41 40 d7 59 83 f9 | 00 0e 0e 41 41 40 16 11 |.AA@.Y..|...AA@..|
|00004260| e4 0e 0f 38 84 07 01 e5 | 0e 0f 38 83 5c 6e 01 e6 |...8....|..8.\n..|
|00004270| 20 88 e1 0e 0e 38 84 1f | 01 e4 0e 0e 38 84 1f 01 | ....8..|....8...|
|00004280| e5 0e 0e 38 83 25 01 c5 | 79 88 82 bb 00 dd 89 16 |...8.%..|y.......|
|00004290| 0d 83 c0 00 0b 83 5d 01 | 0e 18 d7 57 83 5d 01 e7 |......].|...W.]..|
|000042a0| 09 c0 43 5c 22 11 e7 0e | 09 c0 43 5c 22 16 09 0e |..C\"...|..C\"...|
|000042b0| 18 54 16 18 0e 15 54 16 | 15 e8 0e 0e 9b e8 0e 0e |.T....T.|........|
|000042c0| 38 54 a0 88 82 30 01 0b | 3f 85 66 01 0e 18 d7 58 |8T...0..|?.f....X|
|000042d0| 89 16 5c 66 84 9f 00 0e | 15 e8 0e 0e 38 56 83 87 |..\f....|....8V..|
|000042e0| 01 09 41 11 0e 09 41 16 | 09 0e 15 53 89 16 15 82 |..A...A.|...S....|
|000042f0| 6e 01 0e 15 0e 18 55 84 | 92 01 c0 16 11 0e 15 0e |n.....U.|........|
|00004300| 18 57 83 ad 01 c0 09 42 | 11 c0 0e 09 42 16 09 0e |.W.....B|....B...|
|00004310| 15 54 89 16 15 82 94 01 | 0e 09 40 84 c5 01 0e 09 |.T......|..@.....|
|00004320| 0e 0e 41 40 86 c3 01 8a | d9 e9 21 88 60 29 a0 88 |..A@....|..!.`)..|
|00004330| c5 79 88 de c0 77 88 6c | 84 9f 00 0b 83 da 01 60 |.y...w.l|.......`|
|00004340| 0b 59 84 9f 00 09 40 83 | 76 02 09 40 d7 59 83 76 |.Y....@.|v..@.Y.v|
|00004350| 02 0e 09 40 66 ea 55 84 | f6 01 09 40 16 10 82 99 |...@f.U.|...@....|
|00004360| 02 8a 60 16 16 eb ec 21 | 16 12 67 ea 55 16 13 eb |..`....!|..g.U...|
|00004370| ed 21 16 14 67 ee 55 83 | 16 02 09 40 16 10 82 72 |.!..g.U.|...@...r|
|00004380| 02 ef 5c 6e 21 88 68 f0 | 3e 84 3b 02 f1 0e 09 40 |..\n!.h.|>.;....@|
|00004390| 21 88 0e 32 69 0e 13 83 | 33 02 0e 33 82 34 02 d7 |!..2i...|3..3.4..|
|000043a0| 5c 5c 5c 5c 16 10 82 72 | 02 0e 12 83 4b 02 f4 5c |\\\\...r|....K..\|
|000043b0| 6e 21 88 f5 20 16 10 82 | 72 02 0e 14 83 5d 02 f6 |n!.. ...|r....]..|
|000043c0| 5c 6e 21 83 5d 02 f5 20 | 16 10 82 72 02 68 f7 3d |\n!.].. |...r.h.=|
|000043d0| 83 6e 02 0e 16 62 88 f8 | 20 16 10 82 72 02 09 40 |.n...b..| ...r..@|
|000043e0| 16 10 29 82 99 02 f8 09 | 40 83 82 02 09 40 5b 82 |..).....|@....@[.|
|000043f0| 83 02 5c 6e 21 89 1e 39 | dd 3d 83 90 02 fa 20 16 |..\n!..9|.=.... .|
|00004400| 39 09 0e 39 89 16 10 a0 | 88 29 eb 0e 3b 21 84 b2 |9..9....|.)..;!..|
|00004410| 02 eb fc 21 83 bb 02 8a | d9 c5 21 88 eb fd 21 29 |...!....|..!...!)|
|00004420| 83 bb 02 c5 0e 10 0e 3e | 5c 5c 5d 16 10 67 ee 55 |.......>|\\]..g.U|
|00004430| 83 c8 02 0e 10 0e 3f 5a | 16 10 67 ea 55 83 e1 02 |......?Z|..g.U...|
|00004440| 69 d7 55 83 da 02 d7 16 | 10 82 e1 02 0e 10 0e 40 |i.U.....|.......@|
|00004450| 5c 5c 16 10 6c 83 e8 02 | d7 16 10 69 0e 10 55 84 |\\..l...|...i..U.|
|00004460| 02 03 67 81 41 00 55 84 | 02 03 60 d7 79 88 60 7c |..g.A.U.|..`.y.`||
|00004470| 88 0e 10 6a 88 eb 0e 1c | 21 84 9f 00 8a 60 1e 1a |...j....|!....`..|
|00004480| db 0e 1c 8a c0 7f 88 60 | 29 dd 23 83 3a 03 df 0e |.......`|).#.:...|
|00004490| 1a 60 c0 89 0e 0e 25 1e | 20 e1 0e 20 38 3f 85 33 |.`....%.| .. 8?.3|
|000044a0| 03 e2 0e 20 38 3f 29 83 | 3a 03 e3 20 88 2a 82 9f |... 8?).|:.. .*..|
|000044b0| 00 2e 12 87 22 20 5b 6e | 69 6c 20 69 6e 64 65 6e |...." [n|il inden|
|000044c0| 74 2d 73 74 61 63 6b 20 | 6f 70 6f 69 6e 74 20 65 |t-stack |opoint e|
|000044d0| 6e 64 70 6f 73 20 66 75 | 6e 62 65 67 20 31 20 62 |ndpos fu|nbeg 1 b|
|000044e0| 65 67 69 6e 6e 69 6e 67 | 2d 6f 66 2d 64 65 66 75 |eginning|-of-defu|
|000044f0| 6e 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 8a c0 |n (byte-|code "..|
|00004500| c1 21 88 60 29 87 22 20 | 5b 62 61 63 6b 77 61 72 |.!.`)." |[backwar|
|00004510| 64 2d 75 70 2d 6c 69 73 | 74 20 31 5d 20 32 29 20 |d-up-lis|t 1] 2) |
|00004520| 28 28 65 72 72 6f 72 20 | 28 62 79 74 65 2d 63 6f |((error |(byte-co|
|00004530| 64 65 20 22 08 11 60 87 | 22 20 5b 66 75 6e 62 65 |de "..`.|" [funbe|
|00004540| 67 20 6f 70 6f 69 6e 74 | 5d 20 31 29 29 29 20 63 |g opoint|] 1))) c|
|00004550| 6f 6e 74 61 69 6e 2d 73 | 74 61 63 6b 20 63 61 73 |ontain-s|tack cas|
|00004560| 65 2d 66 6f 6c 64 2d 73 | 65 61 72 63 68 20 72 65 |e-fold-s|earch re|
|00004570| 73 74 61 72 74 20 6f 75 | 74 65 72 2d 6c 6f 6f 70 |start ou|ter-loop|
|00004580| 2d 64 6f 6e 65 20 69 6e | 6e 65 72 2d 6c 6f 6f 70 |-done in|ner-loop|
|00004590| 2d 64 6f 6e 65 20 73 74 | 61 74 65 20 6f 73 74 61 |-done st|ate osta|
|000045a0| 74 65 20 74 68 69 73 2d | 69 6e 64 65 6e 74 20 6c |te this-|indent l|
|000045b0| 61 73 74 2d 73 65 78 70 | 20 61 74 2d 65 6c 73 65 |ast-sexp| at-else|
|000045c0| 20 61 74 2d 62 72 61 63 | 65 20 61 74 2d 77 68 69 | at-brac|e at-whi|
|000045d0| 6c 65 20 6c 61 73 74 2d | 64 65 70 74 68 20 74 68 |le last-|depth th|
|000045e0| 69 73 2d 70 6f 69 6e 74 | 20 30 20 6e 65 78 74 2d |is-point| 0 next-|
|000045f0| 64 65 70 74 68 20 66 6f | 72 77 61 72 64 2d 73 65 |depth fo|rward-se|
|00004600| 78 70 20 62 65 67 20 72 | 65 2d 73 65 61 72 63 68 |xp beg r|e-search|
|00004610| 2d 66 6f 72 77 61 72 64 | 20 63 6f 6d 6d 65 6e 74 |-forward| comment|
|00004620| 2d 73 74 61 72 74 2d 73 | 6b 69 70 20 74 20 22 20 |-start-s|kip t " |
|00004630| 09 22 20 70 61 72 73 65 | 2d 70 61 72 74 69 61 6c |." parse|-partial|
|00004640| 2d 73 65 78 70 20 6e 65 | 77 2d 73 74 61 74 65 20 |-sexp ne|w-state |
|00004650| 33 20 35 20 69 6e 64 65 | 6e 74 2d 66 6f 72 2d 63 |3 5 inde|nt-for-c|
|00004660| 6f 6d 6d 65 6e 74 20 34 | 20 37 20 63 2d 69 6e 64 |omment 4| 7 c-ind|
|00004670| 65 6e 74 2d 6c 69 6e 65 | 20 61 70 70 65 6e 64 20 |ent-line| append |
|00004680| 36 20 2d 31 20 31 32 33 | 20 6c 6f 6f 6b 69 6e 67 |6 -1 123| looking|
|00004690| 2d 61 74 20 22 65 6c 73 | 65 5c 5c 57 22 20 22 77 |-at "els|e\\W" "w|
|000046a0| 68 69 6c 65 5c 5c 62 22 | 20 31 32 35 20 63 2d 62 |hile\\b"| 125 c-b|
|000046b0| 61 63 6b 77 61 72 64 2d | 74 6f 2d 6e 6f 6e 63 6f |ackward-|to-nonco|
|000046c0| 6d 6d 65 6e 74 20 28 30 | 20 34 34 20 35 39 20 31 |mment (0| 44 59 1|
|000046d0| 32 35 20 35 38 20 31 32 | 33 29 20 63 2d 62 61 63 |25 58 12|3) c-bac|
|000046e0| 6b 77 61 72 64 2d 74 6f | 2d 73 74 61 72 74 2d 6f |kward-to|-start-o|
|000046f0| 66 2d 63 6f 6e 74 69 6e | 75 65 64 2d 65 78 70 20 |f-contin|ued-exp |
|00004700| 63 2d 63 6f 6e 74 69 6e | 75 65 64 2d 73 74 61 74 |c-contin|ued-stat|
|00004710| 65 6d 65 6e 74 2d 6f 66 | 66 73 65 74 20 63 2d 63 |ement-of|fset c-c|
|00004720| 6f 6e 74 69 6e 75 65 64 | 2d 62 72 61 63 65 2d 6f |ontinued|-brace-o|
|00004730| 66 66 73 65 74 20 63 2d | 62 61 63 6b 77 61 72 64 |ffset c-|backward|
|00004740| 2d 74 6f 2d 73 74 61 72 | 74 2d 6f 66 2d 69 66 20 |-to-star|t-of-if |
|00004750| 63 75 72 72 65 6e 74 2d | 69 6e 64 65 6e 74 61 74 |current-|indentat|
|00004760| 69 6f 6e 20 63 2d 62 61 | 63 6b 77 61 72 64 2d 74 |ion c-ba|ckward-t|
|00004770| 6f 2d 73 74 61 72 74 2d | 6f 66 2d 64 6f 20 34 34 |o-start-|of-do 44|
|00004780| 20 63 61 6c 63 75 6c 61 | 74 65 2d 63 2d 69 6e 64 | calcula|te-c-ind|
|00004790| 65 6e 74 20 76 61 6c 20 | 63 61 6c 63 75 6c 61 74 |ent val |calculat|
|000047a0| 65 2d 63 2d 69 6e 64 65 | 6e 74 2d 77 69 74 68 69 |e-c-inde|nt-withi|
|000047b0| 6e 2d 63 6f 6d 6d 65 6e | 74 20 63 2d 73 77 69 74 |n-commen|t c-swit|
|000047c0| 63 68 2d 6c 61 62 65 6c | 2d 72 65 67 65 78 70 20 |ch-label|-regexp |
|000047d0| 22 5b 41 2d 5a 61 2d 7a | 5d 22 20 22 3a 22 20 63 |"[A-Za-z|]" ":" c|
|000047e0| 2d 6c 61 62 65 6c 2d 6f | 66 66 73 65 74 20 63 2d |-label-o|ffset c-|
|000047f0| 69 6e 64 65 6e 74 2d 6c | 65 76 65 6c 20 63 2d 62 |indent-l|evel c-b|
|00004800| 72 61 63 65 2d 6f 66 66 | 73 65 74 20 33 35 5d 20 |race-off|set 35] |
|00004810| 37 20 22 5c 0a 49 6e 64 | 65 6e 74 20 65 61 63 68 |7 "\.Ind|ent each|
|00004820| 20 6c 69 6e 65 20 6f 66 | 20 74 68 65 20 43 20 67 | line of| the C g|
|00004830| 72 6f 75 70 69 6e 67 20 | 66 6f 6c 6c 6f 77 69 6e |rouping |followin|
|00004840| 67 20 70 6f 69 6e 74 2e | 22 20 6e 69 6c 5d 29 0a |g point.|" nil]).|
|00004850| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 c1 c2 5c |(byte-co|de "...\|
|00004860| 22 88 c0 c3 c4 5c 22 87 | 22 20 5b 64 65 66 61 6c |"....\".|" [defal|
|00004870| 69 61 73 20 69 6e 64 65 | 6e 74 2d 63 2d 66 69 6e |ias inde|nt-c-fin|
|00004880| 64 2d 72 65 61 6c 2d 63 | 6f 6d 6d 65 6e 74 20 23 |d-real-c|omment #|
|00004890| 5b 6e 69 6c 20 22 c0 19 | 09 84 34 00 c2 0b 8a c0 |[nil "..|..4.....|
|000048a0| 7f 88 60 29 c4 23 83 34 | 00 c5 8a c6 79 88 60 29 |..`).#.4|....y.`)|
|000048b0| 60 c0 89 0e 07 25 1e 08 | c9 0e 08 38 3f 85 2f 00 |`....%..|...8?./.|
|000048c0| ca 0e 08 38 3f 11 29 82 | 02 00 09 29 87 22 20 5b |...8?.).|...)." [|
|000048d0| 6e 69 6c 20 77 69 6e 20 | 72 65 2d 73 65 61 72 63 |nil win |re-searc|
|000048e0| 68 2d 66 6f 72 77 61 72 | 64 20 63 6f 6d 6d 65 6e |h-forwar|d commen|
|000048f0| 74 2d 73 74 61 72 74 2d | 73 6b 69 70 20 74 20 70 |t-start-|skip t p|
|00004900| 61 72 73 65 2d 70 61 72 | 74 69 61 6c 2d 73 65 78 |arse-par|tial-sex|
|00004910| 70 20 30 20 73 74 61 74 | 65 20 73 74 61 74 65 2d |p 0 stat|e state-|
|00004920| 31 20 33 20 35 5d 20 36 | 5d 20 63 2d 69 6e 64 65 |1 3 5] 6|] c-inde|
|00004930| 6e 74 2d 72 65 67 69 6f | 6e 20 23 5b 28 73 74 61 |nt-regio|n #[(sta|
|00004940| 72 74 20 65 6e 64 29 20 | 22 8a 08 62 88 c1 c2 77 |rt end) |"..b...w|
|00004950| 88 c3 79 88 c4 0d 21 c6 | 1e 07 1e 08 6e 83 a6 00 |..y...!.|....n...|
|00004960| 6d 84 a6 00 60 0e 08 57 | 83 a6 00 c9 20 c2 89 89 |m...`..W|.... ...|
|00004970| 1e 5c 6e 1e 0b 1e 5c 66 | 1e 0d 8a c3 79 88 ce cf |.\n...\f|....y...|
|00004980| 21 29 83 40 00 d0 79 88 | 82 a2 00 8a 8a d0 79 88 |!).@..y.|......y.|
|00004990| 60 16 5c 66 29 c3 79 88 | 60 0e 5c 66 57 83 5f 00 |`.\f).y.|`.\fW._.|
|000049a0| c2 d1 d2 8f 88 c1 c2 77 | 88 82 4c 00 0e 5c 6e 83 |.......w|..L..\n.|
|000049b0| 6f 00 0e 5c 6e 62 88 d3 | d0 21 88 60 16 0b 29 0e |o..\nb..|.!.`..).|
|000049c0| 5c 6e 83 94 00 0e 5c 6e | 0e 5c 66 56 83 94 00 0e |\n....\n|.\fV....|
|000049d0| 5c 6e 0e 08 58 83 94 00 | 0e 0b 0e 5c 66 57 83 94 |\n..X...|...\fW..|
|000049e0| 00 d4 20 88 0e 5c 6e 62 | 88 0e 5c 6e 83 9f 00 0e |.. ..\nb|..\n....|
|000049f0| 5c 6e c2 89 93 88 d0 79 | 88 2c 82 13 00 0e 08 c2 |\n.....y|.,......|
|00004a00| 89 93 2b 87 22 20 5b 73 | 74 61 72 74 20 22 20 09 |..+." [s|tart " .|
|00004a10| 5c 6e 22 20 6e 69 6c 20 | 30 20 63 6f 70 79 2d 6d |\n" nil |0 copy-m|
|00004a20| 61 72 6b 65 72 20 65 6e | 64 20 74 20 63 2d 74 61 |arker en|d t c-ta|
|00004a30| 62 2d 61 6c 77 61 79 73 | 2d 69 6e 64 65 6e 74 20 |b-always|-indent |
|00004a40| 65 6e 64 6d 61 72 6b 20 | 63 2d 69 6e 64 65 6e 74 |endmark |c-indent|
|00004a50| 2d 6c 69 6e 65 20 73 65 | 78 70 65 6e 64 20 73 65 |-line se|xpend se|
|00004a60| 78 70 62 65 67 20 6e 65 | 78 74 6c 69 6e 65 20 73 |xpbeg ne|xtline s|
|00004a70| 68 69 66 74 2d 61 6d 74 | 20 6c 6f 6f 6b 69 6e 67 |hift-amt| looking|
|00004a80| 2d 61 74 20 22 5b 20 09 | 5d 2a 23 22 20 31 20 28 |-at "[ .|]*#" 1 (|
|00004a90| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 c1 21 88 c2 |byte-cod|e "..!..|
|00004aa0| 20 13 c0 87 22 20 5b 66 | 6f 72 77 61 72 64 2d 73 | ..." [f|orward-s|
|00004ab0| 65 78 70 20 31 20 70 6f | 69 6e 74 2d 6d 61 72 6b |exp 1 po|int-mark|
|00004ac0| 65 72 20 73 65 78 70 65 | 6e 64 5d 20 32 29 20 28 |er sexpe|nd] 2) (|
|00004ad0| 28 65 72 72 6f 72 20 28 | 62 79 74 65 2d 63 6f 64 |(error (|byte-cod|
|00004ae0| 65 20 22 c0 11 5c 6e 62 | 87 22 20 5b 6e 69 6c 20 |e "..\nb|." [nil |
|00004af0| 73 65 78 70 65 6e 64 20 | 6e 65 78 74 6c 69 6e 65 |sexpend |nextline|
|00004b00| 5d 20 31 29 29 29 20 62 | 61 63 6b 77 61 72 64 2d |] 1))) b|ackward-|
|00004b10| 73 65 78 70 20 69 6e 64 | 65 6e 74 2d 63 2d 65 78 |sexp ind|ent-c-ex|
|00004b20| 70 5d 20 34 5d 5d 20 33 | 29 0a 28 64 65 66 61 6c |p] 4]] 3|).(defal|
|00004b30| 69 61 73 20 27 73 65 74 | 2d 63 2d 73 74 79 6c 65 |ias 'set|-c-style|
|00004b40| 20 23 5b 28 73 74 79 6c | 65 20 26 6f 70 74 69 6f | #[(styl|e &optio|
|00004b50| 6e 61 6c 20 67 6c 6f 62 | 61 6c 29 20 22 c0 09 5c |nal glob|al) "..\|
|00004b60| 6e 5c 22 41 89 1b 84 0f | 00 c4 c5 09 5c 22 88 0b |n\"A....|....\"..|
|00004b70| 85 2e 00 0e 06 84 1e 00 | c7 0b 40 40 21 88 0b 40 |........|..@@!..@|
|00004b80| 40 0b 40 41 4c 88 0b 41 | 89 13 84 13 00 c8 29 87 |@.@AL..A|......).|
|00004b90| 22 20 5b 61 73 73 6f 63 | 20 73 74 79 6c 65 20 63 |" [assoc| style c|
|00004ba0| 2d 73 74 79 6c 65 2d 61 | 6c 69 73 74 20 76 61 72 |-style-a|list var|
|00004bb0| 73 20 65 72 72 6f 72 20 | 22 49 6e 76 61 6c 69 64 |s error |"Invalid|
|00004bc0| 20 43 20 69 6e 64 65 6e | 74 61 74 69 6f 6e 20 73 | C inden|tation s|
|00004bd0| 74 79 6c 65 20 60 25 73 | 27 22 20 67 6c 6f 62 61 |tyle `%s|'" globa|
|00004be0| 6c 20 6d 61 6b 65 2d 6c | 6f 63 61 6c 2d 76 61 72 |l make-l|ocal-var|
|00004bf0| 69 61 62 6c 65 20 6e 69 | 6c 5d 20 34 20 22 5c 0a |iable ni|l] 4 "\.|
|00004c00| 53 65 74 20 43 2d 6d 6f | 64 65 20 76 61 72 69 61 |Set C-mo|de varia|
|00004c10| 62 6c 65 73 20 74 6f 20 | 75 73 65 20 6f 6e 65 20 |bles to |use one |
|00004c20| 6f 66 20 73 65 76 65 72 | 61 6c 20 64 69 66 66 65 |of sever|al diffe|
|00004c30| 72 65 6e 74 20 69 6e 64 | 65 6e 74 61 74 69 6f 6e |rent ind|entation|
|00004c40| 20 73 74 79 6c 65 73 2e | 0a 54 68 65 20 61 72 67 | styles.|.The arg|
|00004c50| 75 6d 65 6e 74 73 20 61 | 72 65 20 61 20 73 74 72 |uments a|re a str|
|00004c60| 69 6e 67 20 72 65 70 72 | 65 73 65 6e 74 69 6e 67 |ing repr|esenting|
|00004c70| 20 74 68 65 20 64 65 73 | 69 72 65 64 20 73 74 79 | the des|ired sty|
|00004c80| 6c 65 0a 61 6e 64 20 61 | 20 66 6c 61 67 20 77 68 |le.and a| flag wh|
|00004c90| 69 63 68 2c 20 69 66 20 | 6e 6f 6e 2d 6e 69 6c 2c |ich, if |non-nil,|
|00004ca0| 20 6d 65 61 6e 73 20 74 | 6f 20 73 65 74 20 74 68 | means t|o set th|
|00004cb0| 65 20 73 74 79 6c 65 20 | 67 6c 6f 62 61 6c 6c 79 |e style |globally|
|00004cc0| 2e 0a 28 49 6e 74 65 72 | 61 63 74 69 76 65 6c 79 |..(Inter|actively|
|00004cd0| 2c 20 74 68 65 20 66 6c | 61 67 20 63 6f 6d 65 73 |, the fl|ag comes|
|00004ce0| 20 66 72 6f 6d 20 74 68 | 65 20 70 72 65 66 69 78 | from th|e prefix|
|00004cf0| 20 61 72 67 75 6d 65 6e | 74 2e 29 0a 41 76 61 69 | argumen|t.).Avai|
|00004d00| 6c 61 62 6c 65 20 73 74 | 79 6c 65 73 20 61 72 65 |lable st|yles are|
|00004d10| 20 47 4e 55 2c 20 4b 26 | 52 2c 20 42 53 44 20 61 | GNU, K&|R, BSD a|
|00004d20| 6e 64 20 57 68 69 74 65 | 73 6d 69 74 68 2e 22 20 |nd White|smith." |
|00004d30| 28 6c 69 73 74 20 28 63 | 6f 6d 70 6c 65 74 69 6e |(list (c|ompletin|
|00004d40| 67 2d 72 65 61 64 20 22 | 55 73 65 20 77 68 69 63 |g-read "|Use whic|
|00004d50| 68 20 43 20 69 6e 64 65 | 6e 74 61 74 69 6f 6e 20 |h C inde|ntation |
|00004d60| 73 74 79 6c 65 3f 20 22 | 20 63 2d 73 74 79 6c 65 |style? "| c-style|
|00004d70| 2d 61 6c 69 73 74 20 6e | 69 6c 20 74 29 20 63 75 |-alist n|il t) cu|
|00004d80| 72 72 65 6e 74 2d 70 72 | 65 66 69 78 2d 61 72 67 |rrent-pr|efix-arg|
|00004d90| 29 5d 29 0a 28 64 65 66 | 76 61 72 20 63 2d 62 61 |)]).(def|var c-ba|
|00004da0| 63 6b 73 6c 61 73 68 2d | 63 6f 6c 75 6d 6e 20 34 |ckslash-|column 4|
|00004db0| 38 20 22 5c 0a 2a 4d 69 | 6e 69 6d 75 6d 20 63 6f |8 "\.*Mi|nimum co|
|00004dc0| 6c 75 6d 6e 20 66 6f 72 | 20 65 6e 64 2d 6f 66 2d |lumn for| end-of-|
|00004dd0| 6c 69 6e 65 20 62 61 63 | 6b 73 6c 61 73 68 65 73 |line bac|kslashes|
|00004de0| 20 6f 66 20 6d 61 63 72 | 6f 20 64 65 66 69 6e 69 | of macr|o defini|
|00004df0| 74 69 6f 6e 73 2e 22 29 | 0a 28 64 65 66 61 6c 69 |tions.")|.(defali|
|00004e00| 61 73 20 27 63 2d 62 61 | 63 6b 73 6c 61 73 68 2d |as 'c-ba|ckslash-|
|00004e10| 72 65 67 69 6f 6e 20 23 | 5b 28 66 72 6f 6d 20 74 |region #|[(from t|
|00004e20| 6f 20 64 65 6c 65 74 65 | 2d 66 6c 61 67 29 20 22 |o delete|-flag) "|
|00004e30| 8a 08 62 88 09 c2 20 1b | 1c 0b 0d c6 93 88 0e 07 |..b... .|........|
|00004e40| 84 34 00 60 0d 57 83 34 | 00 c6 7f 88 68 c8 55 83 |.4.`.W.4|....h.U.|
|00004e50| 29 00 c9 75 88 ca c6 78 | 88 5c 66 69 54 5d 14 cb |)..u...x|.\fiT]..|
|00004e60| 79 88 82 13 00 5c 66 0e | 5c 66 a6 cd 56 83 56 00 |y....\f.|\f..V.V.|
|00004e70| 5c 66 0e 5c 66 c9 5c 5c | 5c 5c 0e 5c 66 a5 0e 5c |\f.\f.\\|\\.\f..\|
|00004e80| 66 5f 89 1e 0e cf 20 57 | 83 55 00 0e 0e 14 29 08 |f_.... W|.U....).|
|00004e90| 62 88 60 0b 57 83 69 00 | 6c 83 69 00 cb 79 88 82 |b.`.W.i.|l.i..y..|
|00004ea0| 59 00 60 0b 57 83 8f 00 | 8a cb 79 88 60 0b 57 29 |Y.`.W...|..y.`.W)|
|00004eb0| 83 8f 00 0e 07 84 86 00 | d0 5c 66 21 88 82 89 00 |........|.\f!....|
|00004ec0| d1 20 88 cb 79 88 82 69 | 00 0b c6 89 93 2b 87 22 |. ..y..i|.....+."|
|00004ed0| 20 5b 66 72 6f 6d 20 63 | 2d 62 61 63 6b 73 6c 61 | [from c|-backsla|
|00004ee0| 73 68 2d 63 6f 6c 75 6d | 6e 20 6d 61 6b 65 2d 6d |sh-colum|n make-m|
|00004ef0| 61 72 6b 65 72 20 65 6e | 64 6d 61 72 6b 20 63 6f |arker en|dmark co|
|00004f00| 6c 75 6d 6e 20 74 6f 20 | 6e 69 6c 20 64 65 6c 65 |lumn to |nil dele|
|00004f10| 74 65 2d 66 6c 61 67 20 | 39 32 20 2d 31 20 22 20 |te-flag |92 -1 " |
|00004f20| 09 22 20 31 20 74 61 62 | 2d 77 69 64 74 68 20 30 |." 1 tab|-width 0|
|00004f30| 20 61 64 6a 75 73 74 65 | 64 20 77 69 6e 64 6f 77 | adjuste|d window|
|00004f40| 2d 77 69 64 74 68 20 63 | 2d 61 70 70 65 6e 64 2d |-width c|-append-|
|00004f50| 62 61 63 6b 73 6c 61 73 | 68 20 63 2d 64 65 6c 65 |backslas|h c-dele|
|00004f60| 74 65 2d 62 61 63 6b 73 | 6c 61 73 68 5d 20 34 20 |te-backs|lash] 4 |
|00004f70| 22 5c 0a 49 6e 73 65 72 | 74 2c 20 61 6c 69 67 6e |"\.Inser|t, align|
|00004f80| 2c 20 6f 72 20 64 65 6c | 65 74 65 20 65 6e 64 2d |, or del|ete end-|
|00004f90| 6f 66 2d 6c 69 6e 65 20 | 62 61 63 6b 73 6c 61 73 |of-line |backslas|
|00004fa0| 68 65 73 20 6f 6e 20 74 | 68 65 20 6c 69 6e 65 73 |hes on t|he lines|
|00004fb0| 20 69 6e 20 74 68 65 20 | 72 65 67 69 6f 6e 2e 0a | in the |region..|
|00004fc0| 57 69 74 68 20 6e 6f 20 | 61 72 67 75 6d 65 6e 74 |With no |argument|
|00004fd0| 2c 20 69 6e 73 65 72 74 | 73 20 62 61 63 6b 73 6c |, insert|s backsl|
|00004fe0| 61 73 68 65 73 20 61 6e | 64 20 61 6c 69 67 6e 73 |ashes an|d aligns|
|00004ff0| 20 65 78 69 73 74 69 6e | 67 20 62 61 63 6b 73 6c | existin|g backsl|
|00005000| 61 73 68 65 73 2e 0a 57 | 69 74 68 20 61 6e 20 61 |ashes..W|ith an a|
|00005010| 72 67 75 6d 65 6e 74 2c | 20 64 65 6c 65 74 65 73 |rgument,| deletes|
|00005020| 20 74 68 65 20 62 61 63 | 6b 73 6c 61 73 68 65 73 | the bac|kslashes|
|00005030| 2e 0a 0a 54 68 69 73 20 | 66 75 6e 63 74 69 6f 6e |...This |function|
|00005040| 20 64 6f 65 73 20 6e 6f | 74 20 6d 6f 64 69 66 79 | does no|t modify|
|00005050| 20 74 68 65 20 6c 61 73 | 74 20 6c 69 6e 65 20 6f | the las|t line o|
|00005060| 66 20 74 68 65 20 72 65 | 67 69 6f 6e 20 69 66 20 |f the re|gion if |
|00005070| 74 68 65 20 72 65 67 69 | 6f 6e 20 65 6e 64 73 20 |the regi|on ends |
|00005080| 0a 72 69 67 68 74 20 61 | 74 20 74 68 65 20 73 74 |.right a|t the st|
|00005090| 61 72 74 20 6f 66 20 74 | 68 65 20 66 6f 6c 6c 6f |art of t|he follo|
|000050a0| 77 69 6e 67 20 6c 69 6e | 65 3b 20 69 74 20 64 6f |wing lin|e; it do|
|000050b0| 65 73 20 6e 6f 74 20 6d | 6f 64 69 66 79 20 62 6c |es not m|odify bl|
|000050c0| 61 6e 6b 20 6c 69 6e 65 | 73 0a 61 74 20 74 68 65 |ank line|s.at the|
|000050d0| 20 73 74 61 72 74 20 6f | 66 20 74 68 65 20 72 65 | start o|f the re|
|000050e0| 67 69 6f 6e 2e 20 20 53 | 6f 20 79 6f 75 20 63 61 |gion. S|o you ca|
|000050f0| 6e 20 70 75 74 20 74 68 | 65 20 72 65 67 69 6f 6e |n put th|e region|
|00005100| 20 61 72 6f 75 6e 64 20 | 61 6e 20 65 6e 74 69 72 | around |an entir|
|00005110| 65 20 6d 61 63 72 6f 0a | 64 65 66 69 6e 69 74 69 |e macro.|definiti|
|00005120| 6f 6e 20 61 6e 64 20 63 | 6f 6e 76 65 6e 69 65 6e |on and c|onvenien|
|00005130| 74 6c 79 20 75 73 65 20 | 74 68 69 73 20 63 6f 6d |tly use |this com|
|00005140| 6d 61 6e 64 2e 22 20 22 | 72 5c 6e 50 22 5d 29 0a |mand." "|r\nP"]).|
|00005150| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 c1 c2 5c |(byte-co|de "...\|
|00005160| 22 88 c0 c3 c4 5c 22 87 | 22 20 5b 64 65 66 61 6c |"....\".|" [defal|
|00005170| 69 61 73 20 63 2d 61 70 | 70 65 6e 64 2d 62 61 63 |ias c-ap|pend-bac|
|00005180| 6b 73 6c 61 73 68 20 23 | 5b 28 63 6f 6c 75 6d 6e |kslash #|[(column|
|00005190| 29 20 22 c0 7f 88 68 c1 | 55 83 12 00 c2 75 88 c3 |) "...h.|U....u..|
|000051a0| 20 88 5c 66 6a 87 5c 66 | 6a 88 c5 63 87 22 20 5b | .\fj.\f|j..c." [|
|000051b0| 6e 69 6c 20 39 32 20 2d | 31 20 64 65 6c 65 74 65 |nil 92 -|1 delete|
|000051c0| 2d 68 6f 72 69 7a 6f 6e | 74 61 6c 2d 73 70 61 63 |-horizon|tal-spac|
|000051d0| 65 20 63 6f 6c 75 6d 6e | 20 22 5c 5c 22 5d 20 32 |e column| "\\"] 2|
|000051e0| 5d 20 63 2d 64 65 6c 65 | 74 65 2d 62 61 63 6b 73 |] c-dele|te-backs|
|000051f0| 6c 61 73 68 20 23 5b 6e | 69 6c 20 22 c0 7f 88 6e |lash #[n|il "...n|
|00005200| 86 18 00 c1 75 88 c2 c3 | 21 85 18 00 60 54 c4 c0 |....u...|!...`T..|
|00005210| 78 88 60 7c 87 22 20 5b | 6e 69 6c 20 2d 31 20 6c |x.`|." [|nil -1 l|
|00005220| 6f 6f 6b 69 6e 67 2d 61 | 74 20 22 5c 5c 5c 5c 22 |ooking-a|t "\\\\"|
|00005230| 20 22 20 09 22 5d 20 33 | 5d 5d 20 33 29 0a 28 64 | " ."] 3|]] 3).(d|
|00005240| 65 66 61 6c 69 61 73 20 | 27 63 2d 75 70 2d 63 6f |efalias |'c-up-co|
|00005250| 6e 64 69 74 69 6f 6e 61 | 6c 20 23 5b 28 63 6f 75 |nditiona|l #[(cou|
|00005260| 6e 74 29 20 22 c0 09 5b | c2 5c 22 87 22 20 5b 63 |nt) "..[|.\"." [c|
|00005270| 2d 66 6f 72 77 61 72 64 | 2d 63 6f 6e 64 69 74 69 |-forward|-conditi|
|00005280| 6f 6e 61 6c 20 63 6f 75 | 6e 74 20 74 5d 20 33 20 |onal cou|nt t] 3 |
|00005290| 22 5c 0a 4d 6f 76 65 20 | 62 61 63 6b 20 74 6f 20 |"\.Move |back to |
|000052a0| 74 68 65 20 63 6f 6e 74 | 61 69 6e 69 6e 67 20 70 |the cont|aining p|
|000052b0| 72 65 70 72 6f 63 65 73 | 73 6f 72 20 63 6f 6e 64 |reproces|sor cond|
|000052c0| 69 74 69 6f 6e 61 6c 2c | 20 6c 65 61 76 69 6e 67 |itional,| leaving|
|000052d0| 20 6d 61 72 6b 20 62 65 | 68 69 6e 64 2e 0a 41 20 | mark be|hind..A |
|000052e0| 70 72 65 66 69 78 20 61 | 72 67 75 6d 65 6e 74 20 |prefix a|rgument |
|000052f0| 61 63 74 73 20 61 73 20 | 61 20 72 65 70 65 61 74 |acts as |a repeat|
|00005300| 20 63 6f 75 6e 74 2e 20 | 20 57 69 74 68 20 61 20 | count. | With a |
|00005310| 6e 65 67 61 74 69 76 65 | 20 61 72 67 75 6d 65 6e |negative| argumen|
|00005320| 74 2c 0a 6d 6f 76 65 20 | 66 6f 72 77 61 72 64 20 |t,.move |forward |
|00005330| 74 6f 20 74 68 65 20 65 | 6e 64 20 6f 66 20 74 68 |to the e|nd of th|
|00005340| 65 20 63 6f 6e 74 61 69 | 6e 69 6e 67 20 70 72 65 |e contai|ning pre|
|00005350| 70 72 6f 63 65 73 73 6f | 72 20 63 6f 6e 64 69 74 |processo|r condit|
|00005360| 69 6f 6e 61 6c 2e 0a 57 | 68 65 6e 20 67 6f 69 6e |ional..W|hen goin|
|00005370| 67 20 62 61 63 6b 77 61 | 72 64 73 2c 20 60 23 65 |g backwa|rds, `#e|
|00005380| 6c 69 66 27 20 69 73 20 | 74 72 65 61 74 65 64 20 |lif' is |treated |
|00005390| 6c 69 6b 65 20 60 23 65 | 6c 73 65 27 20 66 6f 6c |like `#e|lse' fol|
|000053a0| 6c 6f 77 65 64 20 62 79 | 20 60 23 69 66 27 2e 0a |lowed by| `#if'..|
|000053b0| 57 68 65 6e 20 67 6f 69 | 6e 67 20 66 6f 72 77 61 |When goi|ng forwa|
|000053c0| 72 64 73 2c 20 60 23 65 | 6c 69 66 27 20 69 73 20 |rds, `#e|lif' is |
|000053d0| 69 67 6e 6f 72 65 64 2e | 22 20 22 70 22 5d 29 0a |ignored.|" "p"]).|
|000053e0| 28 64 65 66 61 6c 69 61 | 73 20 27 63 2d 62 61 63 |(defalia|s 'c-bac|
|000053f0| 6b 77 61 72 64 2d 63 6f | 6e 64 69 74 69 6f 6e 61 |kward-co|nditiona|
|00005400| 6c 20 23 5b 28 63 6f 75 | 6e 74 20 26 6f 70 74 69 |l #[(cou|nt &opti|
|00005410| 6f 6e 61 6c 20 75 70 2d | 66 6c 61 67 29 20 22 c0 |onal up-|flag) ".|
|00005420| 09 5b 5c 6e 5c 22 87 22 | 20 5b 63 2d 66 6f 72 77 |.[\n\"."| [c-forw|
|00005430| 61 72 64 2d 63 6f 6e 64 | 69 74 69 6f 6e 61 6c 20 |ard-cond|itional |
|00005440| 63 6f 75 6e 74 20 75 70 | 2d 66 6c 61 67 5d 20 33 |count up|-flag] 3|
|00005450| 20 22 5c 0a 4d 6f 76 65 | 20 62 61 63 6b 20 61 63 | "\.Move| back ac|
|00005460| 72 6f 73 73 20 61 20 70 | 72 65 70 72 6f 63 65 73 |ross a p|reproces|
|00005470| 73 6f 72 20 63 6f 6e 64 | 69 74 69 6f 6e 61 6c 2c |sor cond|itional,|
|00005480| 20 6c 65 61 76 69 6e 67 | 20 6d 61 72 6b 20 62 65 | leaving| mark be|
|00005490| 68 69 6e 64 2e 0a 41 20 | 70 72 65 66 69 78 20 61 |hind..A |prefix a|
|000054a0| 72 67 75 6d 65 6e 74 20 | 61 63 74 73 20 61 73 20 |rgument |acts as |
|000054b0| 61 20 72 65 70 65 61 74 | 20 63 6f 75 6e 74 2e 20 |a repeat| count. |
|000054c0| 20 57 69 74 68 20 61 20 | 6e 65 67 61 74 69 76 65 | With a |negative|
|000054d0| 20 61 72 67 75 6d 65 6e | 74 2c 0a 6d 6f 76 65 20 | argumen|t,.move |
|000054e0| 66 6f 72 77 61 72 64 20 | 61 63 72 6f 73 73 20 61 |forward |across a|
|000054f0| 20 70 72 65 70 72 6f 63 | 65 73 73 6f 72 20 63 6f | preproc|essor co|
|00005500| 6e 64 69 74 69 6f 6e 61 | 6c 2e 22 20 22 70 22 5d |nditiona|l." "p"]|
|00005510| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 63 2d 66 |).(defal|ias 'c-f|
|00005520| 6f 72 77 61 72 64 2d 63 | 6f 6e 64 69 74 69 6f 6e |orward-c|ondition|
|00005530| 61 6c 20 23 5b 28 63 6f | 75 6e 74 20 26 6f 70 74 |al #[(co|unt &opt|
|00005540| 69 6f 6e 61 6c 20 75 70 | 2d 66 6c 61 67 29 20 22 |ional up|-flag) "|
|00005550| 08 c1 56 89 1a 83 5c 66 | 00 c3 82 0d 00 c4 1d 5c |..V...\f|.......\|
|00005560| 6e 83 16 00 c6 82 17 00 | c7 1e 08 60 1e 09 ca 1e |n.......|...`....|
|00005570| 0b 8a 08 c1 55 84 ca 00 | 0e 5c 66 83 2f 00 c1 82 |....U...|.\f./...|
|00005580| 30 00 c3 ca 1e 0d 1e 0e | 8a 0e 0d 84 b0 00 0e 08 |0.......|........|
|00005590| cf ca d0 23 83 b0 00 c1 | 79 88 d1 d2 21 83 36 00 |...#....|y...!.6.|
|000055a0| 0e 0e 1e 13 c1 79 88 d1 | d4 21 83 63 00 0e 0e 0d |.....y..|.!.c....|
|000055b0| 5c 5c 16 0e 82 80 00 d1 | d5 21 83 7a 00 5c 6e 83 |\\......|.!.z.\n.|
|000055c0| 80 00 0e 0e c1 55 83 80 | 00 60 16 0d 82 80 00 0e |.....U..|.`......|
|000055d0| 0e 0d 5a 16 0e 0e 13 c1 | 57 83 9b 00 0e 0e 0e 13 |..Z.....|W.......|
|000055e0| 57 83 9b 00 d6 5c 6e 83 | 98 00 d7 82 99 00 d8 21 |W....\n.|.......!|
|000055f0| 88 5c 6e 83 a2 00 c4 79 | 88 0e 0e c1 57 83 ac 00 |.\n....y|....W...|
|00005600| 60 16 0d 29 82 36 00 29 | 0e 0d 84 ba 00 d6 d9 21 |`..).6.)|.......!|
|00005610| 88 0e 0d 89 16 0b 62 88 | 2a 08 0d 5c 5c 89 10 82 |......b.|*..\\...|
|00005620| 21 00 29 da 20 88 0e 0b | 62 2d 87 22 20 5b 63 6f |!.). ...|b-." [co|
|00005630| 75 6e 74 20 30 20 66 6f | 72 77 61 72 64 20 2d 31 |unt 0 fo|rward -1|
|00005640| 20 31 20 69 6e 63 72 65 | 6d 65 6e 74 20 72 65 2d | 1 incre|ment re-|
|00005650| 73 65 61 72 63 68 2d 66 | 6f 72 77 61 72 64 20 72 |search-f|orward r|
|00005660| 65 2d 73 65 61 72 63 68 | 2d 62 61 63 6b 77 61 72 |e-search|-backwar|
|00005670| 64 20 73 65 61 72 63 68 | 2d 66 75 6e 63 74 69 6f |d search|-functio|
|00005680| 6e 20 6f 70 6f 69 6e 74 | 20 6e 69 6c 20 6e 65 77 |n opoint| nil new|
|00005690| 20 75 70 2d 66 6c 61 67 | 20 66 6f 75 6e 64 20 64 | up-flag| found d|
|000056a0| 65 70 74 68 20 22 23 5b | 20 09 5d 2a 5c 5c 28 69 |epth "#[| .]*\\(i|
|000056b0| 66 5c 5c 7c 65 6c 69 66 | 5c 5c 7c 65 6e 64 69 66 |f\\|elif|\\|endif|
|000056c0| 5c 5c 29 22 20 74 20 6c | 6f 6f 6b 69 6e 67 2d 61 |\\)" t l|ooking-a|
|000056d0| 74 20 22 5e 5b 20 09 5d | 2a 23 5b 20 09 5d 2a 5c |t "^[ .]|*#[ .]*\|
|000056e0| 5c 28 69 66 5c 5c 7c 65 | 6c 69 66 5c 5c 7c 65 6e |\(if\\|e|lif\\|en|
|000056f0| 64 69 66 5c 5c 29 22 20 | 70 72 65 76 20 22 5b 20 |dif\\)" |prev "[ |
|00005700| 09 5d 2a 23 5b 20 09 5d | 2a 65 6e 64 69 66 22 20 |.]*#[ .]|*endif" |
|00005710| 22 5b 20 09 5d 2a 23 5b | 20 09 5d 2a 65 6c 69 66 |"[ .]*#[| .]*elif|
|00005720| 22 20 65 72 72 6f 72 20 | 22 4e 6f 20 66 6f 6c 6c |" error |"No foll|
|00005730| 6f 77 69 6e 67 20 63 6f | 6e 64 69 74 69 6f 6e 61 |owing co|nditiona|
|00005740| 6c 20 61 74 20 74 68 69 | 73 20 6c 65 76 65 6c 22 |l at thi|s level"|
|00005750| 20 22 4e 6f 20 70 72 65 | 76 69 6f 75 73 20 63 6f | "No pre|vious co|
|00005760| 6e 64 69 74 69 6f 6e 61 | 6c 20 61 74 20 74 68 69 |nditiona|l at thi|
|00005770| 73 20 6c 65 76 65 6c 22 | 20 22 4e 6f 20 63 6f 6e |s level"| "No con|
|00005780| 74 61 69 6e 69 6e 67 20 | 70 72 65 70 72 6f 63 65 |taining |preproce|
|00005790| 73 73 6f 72 20 63 6f 6e | 64 69 74 69 6f 6e 61 6c |ssor con|ditional|
|000057a0| 22 20 70 75 73 68 2d 6d | 61 72 6b 5d 20 35 20 22 |" push-m|ark] 5 "|
|000057b0| 5c 0a 4d 6f 76 65 20 66 | 6f 72 77 61 72 64 20 61 |\.Move f|orward a|
|000057c0| 63 72 6f 73 73 20 61 20 | 70 72 65 70 72 6f 63 65 |cross a |preproce|
|000057d0| 73 73 6f 72 20 63 6f 6e | 64 69 74 69 6f 6e 61 6c |ssor con|ditional|
|000057e0| 2c 20 6c 65 61 76 69 6e | 67 20 6d 61 72 6b 20 62 |, leavin|g mark b|
|000057f0| 65 68 69 6e 64 2e 0a 41 | 20 70 72 65 66 69 78 20 |ehind..A| prefix |
|00005800| 61 72 67 75 6d 65 6e 74 | 20 61 63 74 73 20 61 73 |argument| acts as|
|00005810| 20 61 20 72 65 70 65 61 | 74 20 63 6f 75 6e 74 2e | a repea|t count.|
|00005820| 20 20 57 69 74 68 20 61 | 20 6e 65 67 61 74 69 76 | With a| negativ|
|00005830| 65 20 61 72 67 75 6d 65 | 6e 74 2c 0a 6d 6f 76 65 |e argume|nt,.move|
|00005840| 20 62 61 63 6b 77 61 72 | 64 20 61 63 72 6f 73 73 | backwar|d across|
|00005850| 20 61 20 70 72 65 70 72 | 6f 63 65 73 73 6f 72 20 | a prepr|ocessor |
|00005860| 63 6f 6e 64 69 74 69 6f | 6e 61 6c 2e 22 20 22 70 |conditio|nal." "p|
|00005870| 22 5d 29 0a | |"]). | |
+--------+-------------------------+-------------------------+--------+--------+